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Dieter Eckhardt & Holger Gehr- 
mann = GOLDEN GAMES 
GbR. Zwei Namen, die man sich 
für die Zukunft merken sollte. 
Beide garantieren: Qualitative 
Software made in Germany! Erst 
vor kurzem haben die Beiden ih- 
ren ersten Knüller gelandet. Mit 


. OPERATION HONGKONG 


lieferten sie ein Programm, wel- 
ches in dem führeden Software- 
Magazin ASM geradezu grandios 
bewertet wurde. Also eine echte 
Rarität, wenn man die deutsche 
Marktszene in Sachen Adventu- 
res betrachtet. 

Dabei fing es allerdings gar nicht 
so gut an. Mit MAGIC BALL 
hatten sie ein Programm ver- 
marktet, welches beinah zu einer 
Katastrophe geführt hätte, Der 
freie Mitarbeiter hatte einen ent- 
scheidenen Fehler in seinem Pro- 
gramm, der die Jungs veranlaß- 
te,das Programm im letzten Mo- 
ment aus den Kaufhäusern zu 
holen. Die Konsequenz war ein- 
deutig: Der gute Mann arbeiter 
nicht mehr für Golden Games, 
Das sind halt Erfahrungen, das es 
solche Problemchen bei einer ei- 
genen Firma geben kann. Trotz 
dem haben Dieter und Holger 
mit frischem Mut weiter gemacht, 


obwohl das größte Problem zu- 
mindest bei Holger bestehen 
bleibt: Die Schule. Das es nicht 
ganz einfach ist eine eigene Firma 
neben der Schule zu betreiben, 
dürfte auf der Hand liegen. Gele- 
gentlich gibt es dann Phasen, wo 
man in Zweifel gerät oder auch 
die Lust verliert. Heute scheint 
sich das aber endgültig gelegt zu 
haben. Für Holger Gehrmann 
steht mittlerweile fest, daß die 
Firma an erster Stelle steht, selbst 
wenn sein Abitur dadurch gefähr- 
det ist. Gerade das Projekt Öpera- 
tion Hongkong dürfie ausschlag- 
gebend für diese Aussage gewesen 
sein. Bei so einem Erfolg kann 
man nur auf dem richtigen Weg 
sein. Das Geld fließt zwar noch 
nicht in Strömen, jedoch sammelt 
sich schon einiges an. Im Ver- 
gleich zu seinen Klassenkamera- 
den hat Holger natürlich traum- 
haft viel Geld zur Verfügung. Die 
Devise heißt trotzdem bei den 
Beiden: Sparen! Man will ja auch 
irgendwann einmal gezielt für die 
Firma investieren. 


fedenfalls macht es Dieter und 
Holger einen riesigen Spaß tolle 
Programme zu schreiben. Wenn sie 
sich dann auch noch gut verkau- 
fen, gibt das immer wieder neuen 
Mut für weitere Programme. 





Logical Systems stellt ”E-Lab”, 
ein erweiterungsfähiges Meß- und 
Steuersystem vor. Hobbyelektro- 
niker und Einsteiger bekommen 
ein Meßsystem zur Hand, das in 
der Grundversion aus einem 
Zweikanaloszilloskopen und ei- 
nem Tongenerator bestehr. Elek- 
tronische Schaltungen können ab 
sofort mit ”E-Lab” ausgiebig stu- 
diert. werden. An einem Elektro- 
nikübungsbuch, das spielerisch in 
eine komplexe Technik einführt, 
wird gearbeitet. Zusammen mit 
dem ”E-Lab-System” wird eine 
sinnvolle und interessante Frei- 
zeit gestaltet, die fundierte Kennt- 
nisse nebenbei vermittelt. 

PREIS des Systems "E-Lab”: 
Grundversion + 2 Meßköpfe.... 
98, DM 
Experimentierhandbuch ca. ... 
#8, DM 


Zu beziehen per NN bei: 
Logical Systems, Postfach 72, 
6591 Nieder-Olm 
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Autoren gesucht! 
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Die besten Programme werden abgedruckt und mit 120,- DM 
pro Seite honoriert und kommen in die engere Wahl für 
unseren Wettbewerb! 


[Flopp 
155] 


| | für 
:# Schwerpunkt des Wettbewerbs ist der C16 mit seinen Das PR 116/ 
r 


Brüdern C 116 und plus4, besonders die 64k-Varianten. ander. 
Aber auch alle anderen Systeme werden berücksichtigt! im W. Zubehör 
Die Entscheidung fällt die Redaktion. Anfang 87 werden vi er 

dann die Gewinner vorgestellt! on 400,- DM 


200,- DM | 
‘a 5 besten Programme; | 
die 64 K-Versionen 
von C16/116 
geschrieben sind! 


Einsendungen an: 


Tronic-Verlag 
Postfach 
3440 Eschwege 


Kennwort: Software-Champion’86 
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V 24-Adapter für C-64/128 


C-64/C-128- Computer haben ei- 
ne eingebaute serielle Schnittstel- 
le, die im TTL-Pegel an den User- 
Port geführt ist. 


Mit Hilfe des Interfaces Type 
88222 der Firma Wiesemann Mic- 
rocomputertechnik, werden die 
TTL-Pegel in normgerechte V24- 
Signale gewandelt (ca. +,- IV). 
Die notwendige Elektronik, ein- 


Fehleranalyse in Sekundenschnelle 
— das leistet der Linespy 1134, der 
sich für alle Centromes-Systeme 
verwenden läßt. Die wichtigsten 
Leitungen werden von 16 Leucht- 
dioden überwacht. Besondere Im- 
pulsverzögerungsschaltungen er- 
möglichen die Analyse auch sehr 







schließlich Spannungswandler ist 
sehr kompakt im Steckergehäuse 
untergebracht. Eine Stromversor- 
gung ist nicht erforderlich. 


PREIS: 98,- DM (inkl. MwSt. ab 
Wuppertal) 


Wiesemann Microcomputertech- 
nik, Winchenbachstr. 35, 5698 
Wuppertal 2 (Barmen) 





kurzer Signale, wie zum Beispiel 
den Strobe. Und: Im Gegensatz zu 
vielen anderen vergleichbaren Te- 
stern zeigt der Misco Linespy die 
Signale immer in aktivem Zustand 
— eine enorme Erleichterung für 
den Anwender. 
Er 








- - | Zu ihren 


Mehr als 458 Zubehörteile für 
Home- und Personal-Computer 
beschreibt der über 7@ Din- 
A-4Seiten starke Katalog von 


Lindy. Interfaces, EPROM- 
Programmer, Trackball, Joystick, 
Lichtgriffel und Maus, Stecker je 
der Art, ein Gerät, das den Home- 
computer in ein komfortables 
Speicheroszilloskop verwandelt 
und Software sind nur einige Bei- 
spiele aus dem Programm. Die bex 
sondere Stärke des Lieferanten 
liegt jedoch bei Computerkabeln. 
Er beschränkt sich bewußt nicht 
auf die gängigsten Kabeltypen, 
sondern versucht für jedes Pro- 
blem die passende Lösung anzu- 
bieten. Die Kabel verbinden fast 


mei 















jeden Computer mit jedem Moni- 
tor, Fernsehgerät, Kassetienrecor- 
der, Diskertenlaufwerk, Drucker 
Akustikkoppler und Joystick. 


Verlängerungskabel für den IBM- 
Tastaturanschluß sind beispiels- 
weise ebenso im Lager wie Ver- 
bindungskabel zwischen C-64 
und Centronies-Drucker. 


(Ein Programm als ”Software- 
Interface” sorgt dafür, daß sich 
diese beiden "unverträglichen” 
Geräte verstehen.) 


LINDY-Elektronik GmbH, 
Postfach 1428, Böckstr. 21, 
6802 Mannheim 1 


Er ee Zur Zr 


0000000000070 nn nm 
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Jetzt endlich: 





Auch für den C-16 ein Super-Texiprogrumm! 


En 
Ei6 Software 


Ci6/C116 


= Text- 
RB manager 


Programm: Textmanager 
System: Ci6/C116 
Preis: Diskette 29,99 DM, Kasset- 
te 29,99 DM 
Hersteller/Vertrieb: Markt & 
Technik Verlag 
Durch die rasche Verbreitung der 
016 Rechner entstand lange Zeit 
eine Lücke an brauchbaren An- 
wenderprogrammen. Mittlerwei- 
le hat sich das Bild grundsätzlich 
geändert; von fast allen. großen 
Herstellern wird nun auch der Be- 
sitzer eines C16 unterstützt. Das 
Programm TEXTMANAGER 
ist eines der ersten, wirklich leı- 
‚stungsfähigen Textprogramme 
überhaupt. Interessant ist noch 
dazu, daß das Programm zu ei- 
nem Schleuderpreis von 39 DM 
angeboten wird. Damit versucht: 
Markt & Technik offensichtlich 
genau in die Zielgruppe der C16 
Käufer zu treffen. Trotz dieses 
enorm günstigen Preises braucht 
sich das Programm nicht hinter 
Konkurrenzprodukten zu ver- 
stecken. Ganz im Gegenteil, 
selbst einige C64-Programme 
können sich an diesem Pro- 
gramm noch ein Beispiel nehmen. 
Der Text-Manager arbeitet mit 
”SCRÖOLLING” in allen Rich- 
tungen. Der Bildschirm dient als 
Fenster auf den Text, welches in 
beliebige Richtungen verschoben 
werden kans. Auch das heute so 
beliebte ”Wordwrapping” ist in 
das Programm integiert. Dadurch 
ist es möglich, den Text, ohne auf 
den Seitenrand achten zu müssen, 
fließend einzugeben. Wird der 
Rand durch ein Wort überschrie- 
ben, so wird dieses automatisch in 
die nächste Zeile gesetzt. Das 
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Ganze läuft so schnell ab, daß der 
Anwender diesen Vorgang nicht 
bemerkt. Die Textbreite kann be- 
liebig im Bereich zwischen 35 und 
99 Zeilen variiert werden. Ände- 
rungen sind einfach und jederzeit 
möglich, wobei der Text automa- 
tisch der neuen Zeilenbreite ange- 
paßt wird. Der Texteditor arbei- 
tet vollkommen bildschirmorien- 
tiert. Das bedeutet, daß mit Hilfe 
der vier Cursor-Tasten, der Ta- 
sten HOME und CLEAR sowie 
der Funktionstasten, beliebig auf 
dem Bildschirm umhergewandert 
und editiert, gelöscht oder einge- 
fügt werden kann. Um das Erstel- 
len eines Textes so weit wie mög- 
lich zu erleichtern, bietet der 
Textmanager eine Reihe lei- 
stungsfähiger Kommandos. Diese 
Kommandos werden einfach 
durch Drücken der Taste CTRL 
eingeleitet. Hier stehen folgende 
Funktionen zur Verfügung: 


FIND 

Von der Cursorposition aus, wird 
nach einem bestimmten Zeichen, 
Wort oder Satz gesucht 


REPLACE 

Eine bestimmte Zeichenkette 
wird gesucht und durch eine arı- 
dere ersetzt 


DISK COMMAND 
Kommandos können an die Flop- 
py geschickt werden. Beispiels- 
weise kann eine Diskette forma- 
tiert werden 


SAVE . 

Ein Text kann abgespeichert wer- 
den. Hier har marı die Wahl zwi- 
schen Kassette oder Diskette 






ein universelles 





Dateiverwaltungssystem für C 64 


Programm: Multidarei 

System: C64/C128, Schneider 
Preis: (Kass) 59 Mark, {Disc} 69 
Mark 


} | Hersteller/Vertrieb: Ariola Soft 


Eine Dateiverwaltung ist mit Si- 
cherheit nichts Neues, wird je- 
doch trotzdem immer wieder mal 
benötigt. Nicht zuletzt aus die- 
sem Grund bietet jeder Herstel- 
ler, der etwas auf sich hält, minde- 
stens zwei Programme dieser Ka- 
tegorie an. Auch die Firma 
ARIOLA-SOFT macht hier kei- 
ne Ausnahme. In diesem Test ha- 
be ich mir das universelle Pro- 
gramm Multidatei genauer ange- 
schaut. Kurz nach der Eingabe 
des Ladebefehls erscheint das erste 
Menü. Hier hat man eigentlich 
die Wahl zwischen vier verschie- 
denen Dateiprogrammen: 


Version 1 mit max. 48 Datensätze 
bei 42 Feldern 

Version 2 mit max. 89 Datensätze 
bei 28 Feldern 

Version 3 mit max, 168 Datensät- 
ze bei 12 Feldern 

Version 4 mit max. 488 Datensät- 
ze bei 4 Feldern 


Wie schon diesen Daten zu ent- 


nehmen ist, eignet sich das Pro- 


gramm nur für kleinere Anwen- 


"dungen im Hobbybereich. Ein 


Beispiel wäre eine Adressdatei, 
Büchersammlung oder Schallplat- 
tenarchiv. Aber auch bei diesen 


LOAD 
Ein Text kann von Diskette oder 
Kassette geladen werden 


PRINT 

Mit diesem Befehl kann der "Text 
über einen Drucker ausgegeben 
werden. Der Textmanager druckt 
im Blocksatz, das heißt, der durch 
das Wordwrapping erzeugte Flat- 
tersatz wird ausgeglichen, indem 
eine Zeile durch Einfügen von 
Leerzeichen zwischen den einzel- 
nen Wörtern aufgefülk wird. Das 
Ergebnis ist ein vollkommen 
gleichmäßiger rechter Rand. Das 
Programm erlaubt den Ausdruck 
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Anwendungen kant es, bei einer 
snaximalen Datensatzanzahl von 
483 bzw. noch weniger, schnell 
zu Schwierigkeiten kommen. 
Man sollte sich deshalb vor dem 
Kauf überlegen, ob sich das Pro- 
gramm für die zu verwaltende 
Datenmenge eignet. Ich habe 
mich in meinem ersten Test für 
die Version 4 entschieden. Nach 
etwas längerer Wartezeit, immer- 
hin fast 1.5 Minuten, erscheint ein 
weiteres Menü. An dieser Stelle 
kann die Rand- sowie die Hinter- 
grundfarbe gewählt werden. Da 
ich die Voreinstellung, blaue 
Schrift auf schwarzem Hinter- 
grund, sehr angenehm empfand, 
überging ich dieses Menü. End- 
lich war es soweit, das Hauptme- 
nü erschien: 


DATEI EINRICHTEN & EIN- 
GABE 

DATEI LADEN 

DATEI ABSPEICHERN 

DS ÄNDERN & LÖSCHEN 
DATENSATZ / FELD SU- 
CHEN 

DATEI SORTIEREN 

DATEI LISTEN & 
DRUCKEN 

RECHNUNG & GRAFIK & 
CLR/ENDE 

DISKETTEN SYSTEMAR- 
BEIT 


Die Bedienung wird ab jetzt voll- 
kommen durch dieses Hauptme- 


>» 





auf Einzelblatt- oder Endlospa- 
pier. Da der Rechnerspeicher mit 
16KB relarıv klein ist, besteht 
auch die Möglichkeit, getrennt 
abgespeicherre Teilstücke als 
Ganzes auszudrucken. 
Insgesamt kann man sagen, das 
TEXTMANAGER für den Hob- 
bybereich mehr als nur geeignet 
ist. Es ist fast unglaublich, aber 
man erhält auf diese Weise ein 
Textverarbeitunssystem mit 
Computer, Drucker und Pro- 
gramm schon unter 5Ed DM. Ft- 
was nachteilig macht sich ledig 
lich der kleine Speicher bemerk- 
ar. Frank Brall 


report 


nü gesteuert. Dies ist besonders 
für Anfänger von Vorteil, denn 
Eingabefehler werden fast völlig 
ausgeschlossen. Obwohl ich noch 
keinen Blick in das deutsche Be- 
dienungshandbuch geworfen .hat- 
te, gab es praktisch keine Proble- 
me bei der Handhabung der ver- 
schiedenen Funktionen. 

Nachteil: auch der geübte An- 
wender kommt eigentlich erst 
über. mehrere Untermenüs zum 
Ziel. Zusätzliche Funktionstasten 
hätten hier Abhilfe schaffen kön- 
nen ! Die eigentlichen Funktio- 
nen von Multidatei entsprechen 
denen eines Standard-Dateipro- 
grammes und reichen für den 
Hobby-Anwender vollständig 
aus. Es kann eine eigene Maske 
definiert werden, welche die ent- 
sprechenden Eingabefelder mar- 
kieren, beispielsweise Name, Vor- 
name oder Ort. Die einzelnen 
Datensätze können später nach 
einer dieser Felder sortiert wer- 
den. Leider wird bei der Sortier- 
routine nur nach der Nummer 
des entsprechenden Feldes ge- 
fragt, was bedeutet, daß man sıch 
die Zuordung der Feldbezeich 





Buchhesprechung: 


Ce Einführen a in WordStar 





Aufgepaßt: Anwender aller 
Schneider CPC-Computer erhal- 
ten hier eine umfassende Einfüh- 
rung in das äußerst populäre und 
leistungsfähige Textverarbeitungs- 
Programm, Der SYBEX- Besısel- 
ler "Arbeiten mit WordStar” 
wurde vollständig an die CPC- 
Systemumigebung angepaßt und 
durch viele zusätzliche Hinweise 
ergänzt. 

Inhaklich geht das umfassende 
Nachschlagewerk gezielt vor. An- 
gefangen bei dem Einstieg in die 
Textverarbeitung mit WordStar, 
bis hin zu den wichtigen System- 


nungen merken bzw. notieren 
muß. Sicherlich hätte man hier eı- 
ne bessere Lösung treffen kön- 
nen. Die Sortierroutine arbeitet 
relativ schnell, benötigt jedoch 
die Floppy als Zwischenspeicher. 
Neben den Standard-Funktionen 
besitzt Multidatei auch die Mög- 
lichkeit, eine Säulengrafik zu er- 
stellen. In dieser Betriebsart kön- 
nen bestimmte Datenfelder. ad- 
diert und im Verhältnis zu den 
anderen Datensätzen grafisch dar- 
gestellt werden. Gerade dieser 
Menüpunkt hebt das Programm 
positiv aus der Vielzahl der Datei- 
programme hervor. Allerdings 
eignet sich Multidatei, wegen der 
















































Programm: Turbo Basic 
System: :CPC 464/\ 664/6128 
Preis: ca. 1£@ Mark (Disc) 
Hersteller: Hisoft 

Vertrieb: Datensysteme, Nürn- 
berg 


Wer kennt nicht das Problem? 
Man schreibt ein langes Basic Pro- 
gramm und stellt am Schluß fest, 
daß es viel zu langsam abläuft. 


begrenzten Datensa , | Auch wenn das Spiel noch so gut 
kaum für professionelle Anwen- | ist, so macht doch oft nur die Ge- 
dungen. Frank Brall | schwindigkeit den Reiz des Pro- 

grammes aus. Auch Adventures 
Positiv: machen hier keine Ausnahme, 


Addition und grafische Darstel- 
lung beliebiger Felder 
Sortierroutine für alle Datenfelder 


denn die interne Wort- bzw. Sat- 
zerkennung muß enorm schnell 
arbeiten, da sonst riesige Warte- 


Einfache Bedienung zeiten entstehen können. Um die- 
ses Problem zu beseitigen, gibt es 
Negativ: schon viele Jahre die sogenannten 


Für den geübten Anwender viele 


Compiler. Ein solcher Compiler 
Umwege über Menü’s 


übersetzt das Programm entwe- 
der in Maschinensprache oder in 
einen P-Code. Im Falle eines P- 
Code Compilers, wird eine Art 
Zwischencode erzeugt, welcher 
später von einem Interpreter aus- 
geführt wird. Bei Turbo Basic 
| handelt es sich jedoch um einen 
echten MC-Code Compiler. Das 
bedeutet, das Basic-Programm 
wird direkt in die Z89 Maschi- 
nensprache übersetzt. Dies bedeu- 
vet, dafs auch gegenüber eines P- 
Code Compilers eine wesentlich 
höhere Geschwindigkeitssteige- 
rung erzielt wird. Je nach Basic- 
Programm erzeugt der Compiler 
ein zwischen 7 und 8@ mal schnel- 
leren Ablauf des Programmes. 
Um diese Geschwindigkeiten zu 
erreichen, mußten jedoch einige 


patches, Schrittweise führt man 
den Anfänger, wie auch den Pro- 





- Einschränkungen im Basic ge- 


macht werden. Das bedeutet: 
Will man ein Programm compi- 
lieren, so muß man sich an be- 
stimmte Vorschriften des Compi- 
lers richten. Vor allem ist der Be- 
fehlssatz sehr eingeschränkt, da 
der Compiler nur Integer-Zahlen 
verarbeitet. Funktionen, die mit 
Fließkommazahlen arbeiten, wie 
beispielsweise SIN, COS oder 
Wurzelfunktion, sind dadurch‘ 
nicht mehr verwendbar. Da bei 
Spielprogrammen jedoch selten 
Fließfkommazahlen Verwendung 
finden, dürften hier keine Probie- 
me entstehen. Bei Kalkulation 
und ähnlichen Programmen dürf- 


ten hier jedoch Schwierigkeiten 


aufkommen. Ansonsten hält sich 
der Compiler recht genau an die 
Syntax des Schneider-Basıc. Eine 
Bedingung ist jedoch, daß Varia- 
blen bei einem Neustart nicht auf 
® gesetzt werden. Das heißt, daß 
alle Variablen am Programman- 
fang definiert werden müssen, 
Selbst das mitgelieferte Demopro- 
gramm OTHELLO har hier Pro- 

leme: nach einem ersten Spiel 
läßt sich kein leeres Spielfeld 
mehr erzeugen. Offensichtlich 
haben hier die Programmierer Ih- 
re eigene Syntax nicht beachtet. 
Ansonsten zeigen die beiden mit- 

elieferten Dermoprogramme, Ot- 
Bello und Space-Invaders, was ın 
dem Compiler steckt. Selbst das 
in Basic völlig unbrauchbare Spiel 
ist in compilierter Form noch zu 
vertreten. Für die Programmierer 
von Spielprogrammen kann ich 
diesen Compiler deshalb nur 


empfehlen. Frank Brall 










fi, über die Menüs, Texte editie- 
ren, Handhabung von Dateien, 
Textgestaltung auf dem Bild- 
schirm, Normaler und MIX- 
Druck (MailMerge) und Hinwer- 
sen zur Drucker-Installation zum 
Schlußkapitel. 

Das Buch ist nicht zuletzt wegen 
des übersichtlichen Aufbaus ein 
willkommener Wegweiser für 
Anfänger und Fortgeschritiene. 
PREIS: 42,- DM 

SYBEX-Verlag GmbH, Postfach 
348961, 403g Düsseldorf 


Gompube mi 


Heft 9 bescherte uns leider wieder einige Fehler, die jedoch die Lauffä- 
higkeit der betroffenen Programme nicht beeinträchtigt. In "Cave of 
Death” Teil 4 ist eine PRINT-Zeile verdeckt, die aber nur besagt, daß 
nun die Datazeilen eingelesen werden. "Bitte warten..” ist also voll- 
kommen ausreichend. 

Bei ”Reversi” verzweigt das Programm, falls man eine Pause wünscht 
in das Nichts, Der Autor hat wohl für diesen Teil seines Programmes 
noch keine Zeit gehabt. 

»Moon Patrol” weist bei einigen PRINT-Zeilen einen kleinen Fehler 
auf, Und zwar fehlt bei diesen nach dem letzten Klartextwort die An- 
zahl eben dieser Zeichen. Ursache dafür ist die Tatsache, daß der Autor 
seine PRINT-Zeilen nicht ordnungsgemäß mit Gänsefüsschen abge- 
schlossen hat. Aber auch dieser Fehler läßt sich auch von weniger erfah- 
renen Lesern ausbügeln. 
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PHILIPS NEUE MEDIEN 





Wunderbar, wenn ein echter 
Philips Monitor drin wäre... 


£ enn Ihnen jemand ein supergünstiges Paket- 
5 Angebotmacht, fraptes sich, ob die Qualitätnicht 
F auf der Strecke geblieben ist. Beim Computer ist 
dies weniger zu befürchten. Ins Auge geht es 
Jedoch, wenn am Monitor gespart wurde. Am besten, Sie ent- 
scheiden sich deshalb gleich für einen echten Philips Monitor: 
Der bringt Ihnen durch die hohe Auflösung eine erhebliche 
Verbesserung der Wiedergabe und der Lesbarkeit. Der schont 
die Augen, statt sie zu ermüden - auch bei längerer Nutzung. 
In Farbe oder Monochrom (Bernstein, Grün oder Papierweiß) 
bieten Ihnen die Philips Monitore Kompatibilität mit fast allen 
Systemen und optimale Zukunftssicherheit. Klar und deutlich 
zeigen sie, daß sie mindestens so gut sind wie Ihr Personal- 
Computer. Und das sollte Ihnen etwas wert sein. 
Mehr darüber von Philips GmbH, Geschäftsbereich Neue 
Medien, Postfach 101420, 2000 Hamburg 1. 


| di Philips paßt 
Smups in unsere Zukunft DH i 4 DS 
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"Interface”, Heft 3/86 


Ich bin neulich in den Zeitungs- 
laden bei uns gegeangen, um mir 
die neue ”Compute mit” zu 
kaufen. Ich war total begeistert, 
als ich folgendes auf der Titel- 
seite sah: ”Luxus-Userport für 
C16/116...”. 


Natürlich habe ıch die Zeitschrift 
gekauft. Jedoch lief, als ich mir 


die Anleitung zum Bau des Inter- 
faces durchlas, ein kalter Schauer 
über den Rücken. Ich habe näm- 
lich gar nichts verstanden. Es wä- 
re besser gewesen, wenn Sie einen 
kompletten Schaltplan abgebildet 
hätten. 


Wäre es vielleicht möglich, einen 
Atzplan von dem In terface in 
°Compute mit” abzubilden? ... 


Thorsten Hoppensdedt, Celle 


Redaktion: Tatsächlich war un- 
sere Anleitung für Anfänger nur 
sehr schwer zu verstehen. Aber 
auch eine ausführlichere Version 
würde Anfängern nicht helfen, 
eher würde sie dazu anleiten, der- 
artige Bauten vorzunehmen, oh- 
ne daß die entsprechenden Kennt- 
nisse vorhanden sind - dann mei- 
stens mit der entsprecheden 
negativen Erfolgsmeldung. Wir 
haben uns daher darüber Gedan- 
ken gemacht, wie wir unseren Le- 
sern solche Hardwarebasteleien 
narrensicher anbieten können. 
Herausgekommen ist dabei der 
"Tronic-Hardwareservice”. Wir: 
verschicken in Zukunft zu den 
Anleitungen, die wir veröffentli- 
chen, komplette Bausätze mit aus- 


-führlichen Anleitungen und, 


wenn nötig, den fertigen Leerpla- 
tinen. Den Anfang macht diesen 
Monat die Speichererweiterung 
aus Heft 7/86. Für 45,- DM be- 
kommen Sie in. einer Hardbox die 
entsprechenden Speicherbaustei- 


ne, den Umschalter für 16/64 K 
{Qualitätsschalter} und Bauanlei- 
tung für beide Systeme (C16 und 
C1l6). 

{Bestell-Nummer HWS-1-786) 


Werkstatt, ”Compute mit” Son- 
derausgabe Heft 2 


Als erstes sage ich, ein gutes Heft, 
wie auch das erste. Interessant 
fand ich die Beschreibungen des 
Kassettenports. Könnten Sie auch 
mal die Serial-Buchse erklären? 
Dazu die Frage: Kann ich meine 
Brother EP 44-Schreibmaschine 
{mit eingebautem Interface und 
RS 232- Anschlußmöglichkeit an 
meinem C-16 anschließen?... 
Dietmar Surborg, Hannover 


Redaktion: Man kann. Sie benö- 
tigen dazu einen Userport, wie er 
in Heft & beschrieben ist. RS 232 


und Centronicsroutinen sind in - 


Arbeit, ebenso die komplette Er- 
weiterung incl, Software für unse- 
ren Hardwareservice. 








Zusätzliche 
Fileinformationen 
unter »Geos«., 


Nachdem wir in der letzten Aus- 
gabe die Struktur des Directory- 
eintrages unter dem GEÖOS- 
Betriebssystem besprochen ha- 
ben, wollen wir in dieser Ausgabe 
den Fileheaderblock etwas genau- 
er unter die Lupe nehmen. 


Zur Wiederholung ist nebenste- 


hend der GEOS-Directoryeintrag 
noch mal tabellarisch abgedruckt. 
Unentbehrliches Werkzeug für 
diesen GEOS-Kurs isı ein Disk- 
monitor, 


Nur fortgeschrittene Floppypro- 
grammierer werden in der Lage 
sein, sich die norwendigen Infor- 
mationen direkt von der Diskette 
zu besorgen. 


The never ending story von Uwe Knierim 


Der Fileheaderblock 


Wie in der letzten Ausgabe be- . 
sprochen, weisen die Bytes 19 und 
20 des Directoryeintrags auf den 
GEOS-Fileheaderblock hin, in 
dem alle für das DeskTop wichti- 
gen Informationen stehen, Im 
Folgenden soll beschrieben wer- 
den, wie man für ein beliebiges 
Programm den File Header selbst 
erstellen kann. Sollte das zu laden- 
de Basicprogramm eine eigene La- 
deroutine in Form eines Maschi- 
nenprogramms haben, von dem 
aus das eigentliche Programm erst 
nachgeladen wird, muß natürlich 
dieses Bootfile mit der GEOS- 
Erweiterung versehen werden. 


Einen Block reservieren 


Als erstes muß ein freier Block ge- 
funden werden, der den File Hea- 
der aufnimmt. Profis werden den 
Allocate-Befehl des FloppyDOS. 


verwenden, hier soll ein einfache- _ 


rer Weg beschrieben werden. Mit 
einem einfachen Einzeiler-Basic- 
Programm reservieren wir uns in 
der BAM einen freien Disketten- 


block. 
18 GOTO 18 


SAVE’"NAME”,8 


Mit Hilfe eines Diskettenmoni- 
tors suchen wir nun den Directo- 
ryeintrag "NAME? (erster Block 
bei Track 18 Sektor 1). Das erste 
Byte überschreiben wir mit dd, 
was bedeuted, daß das File ge- 
löscht wurde. Die nächsten bei- 
den Bytes enthalten die Werte 
von dem Track und dem Sektor 
des Blocks, in dem unsere schlich- 
tes Programm abgelegt wurde. 
Diese Werte müssen wir nun in 
Byte 19 und 24 des Directoryein- 
trags des Files eintragen, welches 
wir von GEOS aus starten wol- 
len. GEOS vermutet mun den File 


Compute miß 


(2) 


Header ir dem Block, in dem bis- 
lang noch unser mittlerweile 
überflüssigs _ Basicprogramm 
’NAME” steht. Mit dem Disk- 
monitor können wir uns nun dar- 
an machen, diesen Block mit den 
entsprechenden Fileheader - In- 
formationen zu füllen. 


Die Struktur des File Headers 


1. Die ersten zwei Bytes sind ge- 
wöhnliche Commodore DO$ 
Informationen, die den näch- 
sten Block und das letzte be- 
nuizie Byie des aktuellen 
Blocks anzeigen. Da der File 
Header nur aus einem Block 
besteht und bis zum letzten 
Platz aufgefüllt ist, müssen bier 
die Werte $00 und $FF stehen. 


. Die Bytes 2 - 3 enthalten die 
Breite und die Höhe des Icons. 
Dies ist wichtig, damit für zu- 
künftige GEOS-Entwicklun- 
gen Kompabilität gewährleistet 


[#7 
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Hars'wareservice 


Unser 1. Angebot: 
64 K-Speichererweiterung für C16 + C116 


Bausatz - bestehend aus: allen Bauteilen und ausführlicher Anleitung, um- 
schaltkar SAKTISK — geliefert in siabiler Hartbex. 


Bestell-Nr. HWS-1-786 45,— DM + NR 











Ä PEN, Wir haben die neueste Software! 
1} ' | N u | | Kassette Out on a iimb 19,95 DM } 
I: | —i | | Commsdore i6/116/Plus 4 Raider 9,95 DM 
j II Ace 32.00 DM Rockman 9,95 DM 


| | 50 bestellen Sie: | Bandits at Zero . 14,95 DM Scramble 14,95 DM 


Space Pilot 19,95 DM 
£8ı Hiudusthuniuilwurt won Suktwere Baby Berks 9,95 DM . ’ 
TE I | Bench Head 24,95 DM Street Olympics 9,95 DM 


| Bee OR ER KERE ESER p | Bomb Jack 29,00 0m Mai Boxng 19,95 DM 
| uns tayen. | | Classics (4 Spiele) 34,95 pm Water Grand Prix 9,95 DM 


| ber hucunatme Yarsand werden suuun 1 | Classics |} (4 Spiele) 34,95 DM ; Wimbledon 29,00 DM }1 
i j tur Poaka Kosten arhuban. I Commando 28,95 DM Winter Olympiade 29,00 DM 


Voräaubkösse entgegungssnommaid 


Ausiasnösbestellungen werden iu ” \ Formula 1 9,95 DM Daily Thompsor 25.00 DM 


Rufen Sie uns guoch sıoflaech ® Frank Bruno’s Boxing 25,00 DM Guil Wring Falcon 14,95 DM | 
nl Unsere Telefone sind wochantayn Jet Set Willy 25,00 DM Kung Fu Kid 25,00 DM 
ab 3,31 UHR fur Sie zu wrreichen Kikstart 9,95 DM Turbo Tape 18,95 DM 


| j Legionär 19,95 DM Paint Box 25,00 DM 
SOFTWARE-VERSAND Fordern Sıe kostenloses Informationsmeteriot eher vnset Liefer: 


ANDRENS BREHLER | Programm für folgende Computer en: 


a eat | do CoMMOnonE 64/128, COMMODORE 16/116/PLUS A, SCHUFIUFR Aba/bba 
nU2 AFARK 1I0XF726081/520ST/BOOXL, SINELAIR SPECTAUM wur MSK 


Bitte geben Sie immer Ihren Computertyp an! 


TELEFON-NR. (02871) 183088 - 





17 u Compube mib 


12 












ir From Ihe Dires 


Bincks(sectors) 1- ISaontrack 16 


DOT 











Track of next drectory block 
Sertor nf next dreoiory bock 


2 | C-64 fie type orfed with $80 to indicate closed fie. 
0=DELeted, 1=5EQuental, 2=PRoGram. 3=USER, «=RELalhe 









Track of first data block. 






Sector number of first dal block. 





16 character Täs name padklod with staft spaces, Sao 








Track, Sector of GEDS file Header (New Strochere) 





GEOS stracisre Iype:_0-SEQUENTIAL, 1=VLIR 











&E0% Fäe Typer: B-NOT QGEOE, 1- BASIC, 2=AESEMBLY 3-.DATA, 
4-5Y5TEM, 3-DESK_ACG, E-APFLICATION, T=akPPL_DATA, 
8=FONT.2-PHIKTEN,18-INPUT_BEVICE,1T=DISK_DEVICE 





zum «aoHnmmen 














3-31 











13-223 


276-255 





ist, Falls diese variable Icongrö- 
ßen verwenden. Normalerwei- 
se haben die Icons die Stan- 
dardgröße eines Sprites: 3 By- 
tes in der Breite und 21 
Bytereihen in der Höhe. 


3. Ähnlich verhält es sich mit 


dem Byte 4, dem Bitmapflag, 
das normalerweise $8@ enthäh. 


4. Die Bytes 5 - 67 repräsentieren 


die 63 Sprite-Bytes. Die mit ei- 


Io# orte, hayhı byte: Number ofblocks isertors] in the fe. . 
| arsstoienoyenmya 0 0 0 050 0 [1 
re foiraog eng 


2 Rules red 


GEIN-IESTE 
$HERLOCK 12.5 
Application 
geoklite 
YLIR 
IK 
IrTr36 
Tony Requist 


ask: 


GERIKORE, 





steuchune: 


SIT Er 


[} 
SEHRAINT 


mafifieg: 
ten: 


nem Sprite-Editor gewonne- 
nen Daras können hier mit 
dem Diskmonitor eingetragen 
werden (nachdem sie natürlich 
vorher in Hexcode umgewan- 
delt worden sind). 


Byte 68 markiert den 
Commodore-Fileryp. Für 
PRG muß hier 2 eigetragen 
werden. .Ferner muß Bit 7 ge- 
setzt sein, damit hier ein ord- 
nungsgemäß geschlossener File 
erkannt wird. 


BE 
5 E mpes freeh 


[mE 
via 


3:09 PH 


EB Hiiite Protert 


genkliite 5 a HYSINYTE text 
editor with proportional 
Ispering und graphic support. 































6. 












GEOS File Header Stnicture 
{jz8bylos. Naw GEOS fila, Pointod te by Directory Entry) 









Destripilon 











00 indisates !his is thre last block In ine fıle. 
FF is the index to the last valid data byte inthe block. 






















on,FrF 
3 
Bi, 









ea 
1 

Sn 

Di 


$50 + PRG 






Width oficon in bytes, always 3 
Heigkt offiie icon in linss, always 21. 


Bit Map datatype. Top bit = I means the Inwer ? bits contalnihe | 
number sfunigue bytes which fallow, Le. 63. Always this value. 


SEFSFF | Start ofpioture data total ofsa bytes usedto define icon graphic 
sFFSFR FF | End ofpietura data 
C-54 filetype, used when saving the file urder GEOS 
PRG = 1,Bit7= 
BR Ss, Marked Tor deletion. 


GEOS file type: BASIC= 1, ASSEMBLY = 2, DATA=9 


|o____| Geos structure typ, 1 = VLIR, 0 = SEQUENTHAL 





















 Deieteg, Bit 6 = 1 Write Protetied. 








73-7 


75-76 






77-96 





97 - 127 [Researved 






160-255 


Byte 69 kennzeichnet den GE- 
OS Fileryp. Ist das nachzula- 
dende Programm ein Basicpro- 
gramm, muß hier 1 eingetra- 
gen werden, bei. einem 
Maschinenprogramm 2. 


Byte 7% ist der GEOS- 
Struktur-Typ. GEOS kennt 
zwei verschiedene Strukturty- 
pen von Files. Erstens die stan- 
dardmäfßige Blockorganisation 


{=} oder die geosspezifische . 


Struktur VLIR, was Variable 
Length Indexed Record be- 
deured. Bei eigenen Program- 
men, die nicht auf GEÖS- 
Routinen zugreifen, ist dieses 
Byte, wie auch das Byte 21 des 
Directoryeintrags Null (509) 
zu setzen. 


Die Bytes 71 - 72 enthalten die 
Ladeadresse des Programms. 
Bei Basicprogrammen ist dies 
$dsdi - bei Maschinenpro- 
grammen muß hier die ent- 
sprechende Ladeadresse einge- 
tragen werden. 


Die Bytes 73 - 74 werden bef 
Ererndfiles von GEOS igno- 
riert. 


Gompute mi 


Stan address in memory Tor loading the program 


End address in memory forloading ine program 
InitProg " Address ofinitiahzation reutine to call afterioading Ihe program 


Filename 20 byte ASCI string containing file name fortke application. 
‚0.0,8,0,0,0 | Remalning byles in Filename saltoD. 
Set io nulis fascli$0) 


32 bytes Tora graphics string commands. ksedteput upa 


128-153 
preiiminary sereen image while the remainder afthe file is being 
loadeg. See chapteron graphies. 1 
Get infg "Used for ihs file menu option gatlafe. String must be null 
1grminated and null must bo first char ifstring is empty. 












16. Die Bytes 75 - 76 enthalten 
die Startadresse des zu laden- 
den Programms und sind da- 
her in der Regel mit den Bytes 
71 und 72 identisch. 


11. Die Bytes 77 - 159 werden 
nur benötigt, wenn das nach- 
zuladende Programm als ech- 
ter GEOS-File abgelegt ist. Bet 
Fremdprogrammen werden 
diese Bytes ignoriert. 


12. Die Bytes 169 - 255 enthalten 
den GetInfo-Textstring, der 


vom DeskTop aus angezeigt 


wird, wenn man get info an- 
wählt. Hier sind üblicherwei- 
se Benutzerhinweise oder Co- 
pyrightvermerke des Autors 
eingetragen. Dem letzten be- 
nutzten Stringdata muß unbe- 
dingt ein $2% folgen. Wird die- 
ser Eintrag nicht benutzt, 
muß das Byte 169 32% ent- 
halten. 


Rückkehr zum DeskTop 


In der nächsten Folge veröffentli- 
chen wir ein kurzes Maschinen- 
programm, daß am Ende eines ei- 

enen Programms die Rückkehr 


zu GEOS erlaubt. 


m w gg 


Li 


programme 


27 PRINT" CRVSONIGEISTEIRIGHT} "IRVSOFF CYA 


= NINCHHITE RWYSON}' CRIGHTFINTRIGHTIDERTEIG. 
u: HT} BURG" «76% 
u 30 PRINT" CRYSONISEIN{RIGHTIUNWESEN. " <73> 


#1 PRINT" <RYSONISAMMELN{RIGHTISIELRIGHT} 









































































































































































































































































BE Be ©; —.. SOVIEL" «79> 
f \ we | 32 PRINT" CRFSONIMUENZENTRIGHTIRERIGHTISE 
nu Be | ÄHAETZELRIGHTFEIN"; i <124> 
ö ' um MM RER AIR N © WR. SA ge 33 PRINT" {RVYSONIWIELRIGHTISIELRIGHTFINURT 
EL EEE EEE BEE Bu RIGHTIKOENNEN. " <2% 
. 34. PRINT" {DOGHNAIBE"SPE 17) "BR “181> 
Schatzräuber, wir schnappen dich kann durch Wände gehen und | 35 Pine {RLUEFDELRIGHTZ CYAN RVYSONI-ZUM 
weiß ausserdem immer, wo sich | (RIGHTISTARTEN-{RIGHT2 AVSDFF BLUEYDE* <B7> 
Sie sind in die Rolle eines Schatz- sich befinden und nimmt immer | 35 PRINT" tHWITEIREPSPELLTF) "RE" <159> 
räubers gesschlüpft. Allerdings den kürzesten Wegum Siezufan- | 37 GETA$: IFAS=" {EL}"THENST <200> 
machen Ihnen die Geister zu gen. 29 PRINT TOLEAR RIGHT2 DOHN YELLOW RVSBN ‚Ber 
schalten, die aus dem S mputr Ihre Aufgabe 1565 nun, alle Schär- FPUNKTEWERTUMGE " <E7> 
hützen. ze und Münzen einzusammeln. | a0 PRINT"{RED RYSON RIGHT23 
u En. Haben Sie Ihre Aufgabe bewäl | —" S1FF>. 
, tigt, erklingt eine Melodieunddas | #1 PRINT"CRIGHTZ DOWN3 YELLOWIOCHHITE RI 
Am Anfang des Spieles stehen <>: GHT. RVSUNI=TRICHTE} L LRIGHTFPUNKT" 4204> 
ni - Spiel beginat unter erschwerren GH 
Sie in der rechten oberen Bild. Redi en 42 FRINT"T{RICHTZ DOKN YELLOWYPIHHITE Ri 
schirmecke. In der linken unteren FENBERBEN NER, HT RYSONHS=CRIGHTSILOTRIGHTIPUNKTE" “252> 
Ecke lauert schon der Geist, Er Eee 43 FRINTYIRIGHT2 DOKN YELLOWISTCHHITE RIG 
HT RYSONI=TRIGHTSISOLRIGEHTIPUNKTE" <21> 
43 PRINT"CRICHTZ BIHN YELTOWIRIHHITE RIG 
HT. BPSONI=ERIGHTSISCLRIGHTFPUNKTE" <a6> 
43 PRINT'{RIENHT2 DOHN YELLOWISCHHITE RiG 
HT RVSONI=TRISHTIUNBEK, TRIGHTIPUNKTE" <219> 
46 FRINT" IDORNSFEC"SPE (LFI "BO® 193% 
47 ERINT" ISLUEFDECRIGHT2 CYAN APSOHI—-IUM 
ERFGHTYSTARTEN-{RIGHT2 AVSOFF BLGEIDE® £99} 
38 PRINT" IHHITESBE"SPCELITI BE" <iA71> 
49 BETAS2 IFAS=" E13" THENSI 21265 
50 GOT049 <206> 
VC2O LISTINB + CHECKSUMMEN {YO VL.0OH | 51 PRINT"ICLEAR RVSON DOWNS RIGATZIVC-2O 
LSPACEILAEDT ISPACEYDEN" “195> 
5 POKES&,2B:ÜLR <24> 52 PRINT"{DOHN RYSON RIGHTSY2. ISPAGEITEI 
& POKES6979,9 x226> LEISPACEIVON" <237> 
7 FRINT"{CLEAR DOWNB RIGHT4 WHITESBITTEL 53 FOKE 631,131:POKE 198,1:STDP:REM NACH 
RIGHTIWARTENTSPACEF |" <92> LADEN <19> 
8 FORT=7148107482: READF = POKET ‚F=5=54F: NE 54 POKEASFI „19: POKEAS2, 13: PORESSS 82: POKE 
KT <42> 634 ‚1175 FOKEA35, 58: POKESS6, 13: POKEIFB,6  <151> 
9 IFS<>24187THENPRINT" CELEARIFEHLERTSPAC 55 DATAO28,0728,008,062,093,993,029,054 <75> 
E}INTSPACEIDEN{SPAGEIDATASTSPACEN "END  <240> 56 DATNO62,045,077 081,001 ,077,065,062 <I7> 
10 POKE3&B649 ,255 <160> 57 DATA000,117,085,117,057,071,000,000 «245> 
11 PRINT"{CLEAR DOHN2 RIGHTZ YELLOWIFGHI 79 DATAO00,117,069,117,021,117,000,000 “96> 
JKEHTRIGHTFGLMMHBS" «80> 5? DATA127,113,119, 115,119, 119,127,000 2197» 
12 PRINT"CRIGHTZ RED RYSOH} 60 DATA255,239,207,239,239,199,255,000 «A152» 
— <158> |- 61 DATAL26,126,024,074,024,024 ,074 ,024 <36> 
13 PRINT"{DOHNZ RIGHTS HHITEIATRIGHT. RVS 42 DATA126,126,102,126, 126,120, 108,102 <19> 
ONYFFLFBSCRIGHTIBY" <234> 63 DATA124,125,096,120, 120,096, 124,126 <156> 
14 PRINT"{DOHN RYSON RIGHT43OLIVERTRIGHT &4 DATA1264,126,102,176,1726,102,102,102 <111> 
ININDEL” <79> 65 IMTA126,126,096,126,126,006,126, 126 <167> 
15 PRINT" {DOHM RYSON RIGHTIIEHRLICHERSTR &4 DATA102,102,102,102,102,102,126,17& <189> - 
„zo <2535 67 DATA1264,126,102,102,102,102,126,12& <2> 
i& PRINT"EDGHN RVSON RIGHT3332O0LRIGHTIH 68 DATA124,126,102,124,124,102,126,124 «71> 
ILDESHE IM" <ä6> 67 DATAOT3,063,042, 052,034 ,062,042,042 <134> 
17 PRINT" CDOUNSIBE"SPE (17) "BE" «194> 70 DATAO00,000,000,0724 ,024,000, 000,000 <143> 
18 PRINT" CBLVEIDELRIGHTZ CYAR RYSONI-ZUM 71 DATAC62,042,078,028,008,008,078,000 <156> 
tRIGHTISTARTEN-{RIGHTZ RVSOFE BLUEIDE" <70> 72 DATAOBS,085,1727,028,009,009,028,000 <211> 
17 PRINT" CHHITEIBC"SPC(17) "BOCH <142> 73 DATAO08,028,008,073,107,127,127,000 <197> 
20 GETA$: IFA$=" {FL}"THENZZ <72> 74 DATAOO8,020,034,427,054,020,008,000 <115> 
21 G0T020 <146> 75 DATA2S1 ,251,251,000,223,223,223,000 <77> 
22 PRINT"{LLEAR DOWN RVSON YELLPWISPIELA 7& DATAOOO 023,071 ,021,021,023,000,000 . £235> 
NLEITUNG: <161> |. 77. DATAO00,117,021,117,069,117,000,000 “243> 
23 PRINT"CRED RYSON} " <228> 78 DATAO00,119,021,117,021,117,000,000 <B> 
24 PRINT"CDOHNZ WHITE RUSONYSIELRIGHTHSI 797 DATAO00,097 ,09%,117,021,023,000,000 <7> 
ND{RIGHT}INIRIGHTIE INERIGHTIBURG" <251> 580 DATACOO, 119,069, 117,021,117,000,000 <150> 
25 PRINT" {RVSONFEINGEDRUNGEN, CRIGHTHIMER 81 DATAO6&0,126,090,126,050,036,219,070 «1B2> 
IGHTIDIE" «83> 82 DATA000,119,068,116,020,117,000,009 <104> 
26 PRINT" CRYSONIREICHTUENER {RIGHTIDIESER 83 DATAO00,117,095,067 ,086, 117 ,000,000 <128> 
{RIGHTIZU" <S58> 84 DATA000,112,064,096,064,112,000,000 <I6> 
27 PRINT" ERVSONISTEHLEN, " <31> 85 DATA0O0,087,092,114,082,087 „000,000 <al> 
28 PRINT" {RYSONIABERLRIGHTFLEIDERIRIEHT} 1 86 DATAO00, 117,069, 097,085,117,000,000 <121> 
TREIBT {RIGHTIEIN"; <121> 87 DATAO00G,000,009,000 , 000,000, 000,000 <706> 






10/86 Sompute mib | | 13 


programme 


DATAOZ4,024,008,0289, 122,024 ,028,052 
89 DATAO24 ,024 ,016,056,094 ,024 „056,044 
90 DATA149,127,141,034,145,173.032,145 
71 DATAOs1,129,133,251,169, 255,141 ,034 
72 DATA1L45,173,031,145,041 ,028,024,101 
92 DATN2S1,133,251,173,031,145,041,032 
94. DATA1FS,252,096 
ENDE DES LISTINGS 


kı% 








(WG v1.03 


vc2o LISTINGS + CHECKSUMMEN 


19 FOKES6S879,8:0=4 

il FOKES6B69 „255: POKEZ4B78,15 

12 601077 " 

13 PRINT"{CLEAR BOHN BLUEFTETTTETTTTTETT 
TTTTTTTTT{RIGHTZ CYANIF{PURPLEIGIGREENFH 
{REDY LICYANFITPURPLEIKIGREENFGLREDFHERIG. 
HI2 CYAN3GEPURPLEYLTGREENFMEREDIMICYANIH 
{PURPLEISERIGHTZ BLUE3T"S 

14 PRINT"TTTFITTTTITTTTTTTTTTITTTERICHT. 8 
HITEILNI{RIGHTF3"_XRIGHTT BLUE3T": 

45 PRINT"TTTTTTTTTTTITTTFTTTTTTTIKELLOH} 
ONGICGLLIODTGGOLODODBTSPACE BLUEYIT"S 

1& PRINT"TIYELLOWRFOIBLUEITTTEYELLOHIOTBL 
HEFT{YELLOWIOLBLUEFTIYELELOWIDIBLUEITTÄYE 
LION>DEBLUEITÄYELLOHFGIBLUEFTIYELLOWIDEB 
LUEITTTIFELLOHFOEBLUEITTYELLONIDTBLUEHT 
tr£LiOW}OODO{BLUEFTCYELLORIODDDOGODIELYE} 
TIYELLOWIOOTTBLLHEITÄVELLOHIOTCBLUEIT"3 

17 FRINT"T{YELLOWIGTBLYEITTVELLOHFDIBLUE 
ITTTIYELLOHSD{BLHEHTTTTITTEYELLONFDIBLUEY 
TTT{FELLOWFOLBLUENTYELLORFOTBLUEITTIVEL 









































LORFUOODONGOO {BLBEITTTTILELLOH FODDONIDDTEB 


LUEIT"3 
18 PRINT"TIFELLOWSUTBLYUEITLYELLORYDEBLUE 





+TTTTYELLOWIODGOOOLBLHEITTTTEYELLORIOEB 
LUEFTIYELLOWIDIBLUEYTTIYELEOWIOLBLUEFTAE 
ELLOKFODDOODEBLHEYTTTTIYELLOWIGÖODODDEBLH 











EYTIYELLOWFOTBLUEFIT"I 
19 PFRINT"TEFKELLOHFOOGCBLUEITTTTTTTITTITTTE 





TEYELLOHYDODIBLUEITTCYELLOWIÜTBLHEYTÄYEL 





LOKFODODODEBLYEFTTTTITELLOHHOODDOOTBLUEF 
TIYELLOWITDEBLUEIT"; 

20 FRINT"TIFELLOR?OTBLYEHTTYELLOWIOTBLUE 
ATTTT£YELLORFODOGOOERBLBEITTTTLYELLOWIDER 
LUE3TIYELLOWFTEBLYEFTTOYELLCHIONODODOOER 
LUEITTTTCTELLORFDOODOODGEBLUEFT" 

21 PRINT"TEYELLOHSOCBLHEITIYELLOHTDERLUE 
#TTTIYELLOWIDIBLUEITTTTTTEFELLOWFOTBLHEF 
TTT{YELLOWFOTBLUEFT CYELLONTDIBLUEITTENEL 
LOHITEBLBEFTEYELLOHIOODTBLUEFTLYELLOWIOD 
DOUGUCtBLUEITTKELLOWFOODTBLUEHTLYELLORTO 
£BLUEIT" 
22 PRINT"TCYELLOWIDEBLUEITTTEYELLOHFDEBL 
HEITIKELLGWIOLBLUEFTIVELLONIGTBLYEITTIYE 
LLOWIOCBLUE3TIYELLOWIOCBLUEITTTELLONIUTB 
LUEHTTTIYELLOWFOTBLYENTTIXELLOHFOODDUUOD 
DOGOGOGOGGOGTBLUEIT"; 

3 PRINT" {BLGEFTTFTTFTTETTTTTTTTTTITTEHO 
HEY" 

24 F=30720:D=5:G=16:D1=7: DZ=15:8=356874 
25 A=7932: AX=20: AY=& 

25 B=B121:BX=1:BY=20 

27 FORT=1TOD 

26 I=INT(AND(1)#327) 

27 IFFEEK(1+7771)< > 1STHENZB 









































2403 
x198> 
x136> 
2023 
sal> 

+120> 
“26> 


28> 
<13> 
<i6B> 


<2367 
x71> 


<237> 


247 


106? 


<ZU2> 


<176?> 


x142> 


<73> 


x174> 


“129> 
a2 
<235> 
219775 
x2354> 
«151> 
<1> 


30 POKEI+7791,5:POKEI+7791+F,7 

31 NEXT 

32 IFG=1FTHENZS 

23 G=6+1:D=D-1:60T027 

34 SY57448 

35 Ki=PEEK (251) 

36 Al=0:A2=0:A3= 

37 IFKL=148THENA1=22:A2=1:44=04 GOTOA1 

39 IFKI=1SZTHENAI1=-22: A2=-1:A4=0: GUT041 
37 IFKI=140THENA1=-1:A3=-1194=333 607041 
40 IFKI=ZBTHENAI=1:A3=1:A4=I4 

41 IFPEEK (A+A1)=2OTHENA1=0:A2=0:A3=0 

42 TFAI<>OTHENPOKEA,32 

43 A=A+AL:AY=AY+A2: AX=AX+AS 

44 IFPEEK{A)=1STHENPOKES+3, 242: FORT=1F01 
O0: NEXTSPOKES+3 ,0: SC=5C+1 :U=U+1 

45 IFPEEK (A) H1SANDPEEK (A} <ZOTHENU=LMH+1:60 
SUB6S 

46 IFPEEK(A)=14THENTZ 

47 IFU=185STHENPOKEA+F „Or POKEA,A4:R=0:U=0 
: 0=0-1: B0SUBB1: 601013 

48 FOKEA+F,1:POKEA,A4 


50 IFSCHHITHENHI=SC 
51 FRINT"IHRHE DOHNA LYAN RYSONYFSPECLA 


52 R=R+15 IFR>OTHENR=0+ 501034 

53 601034 

54 POKEB+F,Di:POKEB,D2 

SS IFBX>AXTHENBX=BX-1:B=B-1 

S& IFEX<AXTHENBX=BX+1:B=B+1 

57 IFBYSAYTHENBY=BY-1:B=B-22 

58 IFBY{AYTHENBY=BY+1:B=B+22 

57 DI=PEEK (B+F) :D2-PEEK (RB) 

60 IFA=BTHENT2 

&1 POKEB+F,3:POKEB,14 

62 601034 

42 IFFEEKIA)=1FTHENA7 

64 SC=-SCHPEEKIM-15) #10 

65 POKEA,PEEK(A)+5 

66 GOTO4EO 

67 V=tINT{RND(1)*5) +1) #10: 5C=SC+HV:POKEA, 
W/10)+20 

&9 FOKEA+F,1 

69 FORT=220102455TEP. 22FOKES+2,T:NEXT 
70 POKES+2,0 

71 RETURN 

72 FOKER+F ,1:POKER,76 

73 FORT=250T02108TEP-, 2: POKES+1,T:NEXT 
74 POKES+1,0 

75 S0=0:A4=0 

76 FORT=ITOZOO0:NEXT 

77 FRINT"{CLEAR DOKHNZ RIGHTS CYAN>FTPURP 








LEIGTGREENIHEREB? LLCYANIJTPURPLEIKGREEN 
+GS{REBIHEIRIGHT ECYANFGEPURPLEYLLGREEN}MIER 








EDIMICYANFHLPURPLE}IG” 
7a FRINT"tDORNE KHITEI"SPECEI""_CRFSONG" 











HI: PRINT" {DGOHNI3 "SPECDI "IRVSOHIPREBSTSPA 





CE2IFIRE" 
79 WAIT37137,32,32 

80 U=0:0=4:G0T013 

81: READG,W 

92 IFW=-1THENRESTORE: RETURN 
83 POKES+1,0 

84 POKES+Z,G 

85 FORT=1TOW: NEXT 

B& POKES+1,0 

687 POKES+2,0 


-88 FORT=1TD20:NEXT 


87 607081 

90 DATA215,050,215,150,215,100, 225,400 

71 DATA225,400,729,400,278,400,735,600 

92 DATA?31 ,200 ,225,200,000,100,235,100 

73 DATA231 ,300,725,100,219,400,232,800 

94 DATA228,300,223,100,225,700,000,-f 
ENDE DES LISTINGS 


Sompute mi 


»180> 
<141> 
x317> 
<213> 
x178> 
<78> 
<O> 
<A6F 
x87> 
x2> 
«115> 
153> 
“2547 
<76> 


. x182> 


“2353 
x217? 


£33> 
«239> 


<23> 
<25> 


<197> 
<87> | 
«192% 
<131> 
<232> | 
<207> 
<54> 
<31> 
<249> | 
<d2> 
295% 
<201> 


"1587 


x210> 
<128> 
ı225> 


<95> 
<117> 
<18> 
«69? 
“213> 
<118> 
<101> 
£69> 
<78> 
<9> 


x2a> 


<x537> 
x200> 
<xra> 
90> 
“208> 
<20> 
“255 
<&0> 
<Bi> 
<967 
<109> 
SEEPR 
“226> 
<209> 
<1935> 
«ol 
ldhr 
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Das Spiel "Scrumble” ist, wie 
man schon am Namen vermuten 
kann, dem Spielhallenhit ”Scram- 
ble” nachempfunden. Sie fliegen 
mit einem Raumschiff durch eine 
Höhle und müssen den Hinder- 
nissen ausweichen. Außerdem 
tauchen am linken Höhlenrand 
ab und zu Raketen und Treib- 


stofftanks auf, die abgeschossen 
werden müssen. Sie können so- 
wohl Laserschüsse abfeuern, wie 
auch Bomben werfen. 

Wenn ein Laserschuß unterwegs 
ist, können Sie durch nochmali- 
ges Drücken des Feuerknopfes ei- 
ne Bombe werfen und umge- 


kehrt. 


Programme 


Folgende Spielstufen können Sie 
erreichen. : 


1. die einfache Höhle 


2, die Höhle mit Kometen (kön- 
‘nen nicht abgeschossen 
werden) 


3, die Höhle mit UFOs (kann 
man abschießen) 


4. nochmal Kometen 


Hat man alle Spielstufen durch- 
laufen, kommt zudätzlich zu den 
Kometen noch das MYSTERY. 
Es erscheint 5 mal, Es muß mit 
dem Laser oder einer Bombe ge- 
troffen oder aber gerammi wer- 
den. Hat man das nıcht geschafft, 


hat man seine Mission nicht er- 


füllt. 


Eingabehinweise: 


Tippen $ie das Vorprogramm ab, 
prüfen Sie.es und speichern es. 
Starten Sie es nun. Wenn ”LO- 
AD/PRESS PLAY ON TAPE” 
erscheint, stoppen Sie es durch 
Drücken der "RUN-STOP /RE- 
STORE”-Taste. Löschen Sie den 
Basicteil mit "NEW” und tippen 
nun das Hauptprogramm ab, 


Speichern Sie es ab, wenn Sie es 
überprüft haben. 


Die Steuerung erfolgt mit dem 
Joystick. 





u u = 


180 PRINT" TDOHNFB{ISPACEI=TSPACE RYSONIUF 





" VC20 LISTING + CHECKSUMMEN (VE Vv1.0) 











































































































. DISPACEI LLOLSPACEIPTS) {RVSOFFF" <233> 
0 REM.SCRUMBLE. <11> 185 PRINT" CDOHNIDESPACEI=TSPAGE RYSONIKO 
1 REM.MARTIN RIEDL. 27 MET{RFSOFF}" <217> 
2 REM. BAHNHOFSTR.23. «1223 170 PRINT" {DOHNIM{SPACEI=TSPACE RUSUNIMY 
3 REM.6970 LAUDA. 715 STERYISPALEI (SOLSPACEIPTS) IRVSOFE DOHN}” 
4 REM. TEL (07343/2912). AF3> : GOSUR22S <Ba> 
5 REM. (091985 FUER TRONIE VERLAG. *237> 224 POKES6987, 240: POKE170O, 3: POKE632,1473 
10 PRINT" ICLEAR WHITE} "TCLR <254> POKESSZ,IS1:END c222% 
20 FOKE36879, 110: PRINT" TDOHNIO RIGHT#>BI 225 PRINT" {DOHN RIGHTS RYSON}<RETURN> ERF 
TTEISPACEIWARTEN" <90> SBEF}" en 7 KıBa> 
30 FORI=OTOS11:POKE714B+I ‚PEEK (32768+1) 230 BETAS: IFAge >" "THENRETURN 59% 
NEXT: <236> 240 GOT0230 <54> 
50 REABB: POKE716B+A,B=: NEXT 723 779 DATA129,153,153,90,60, 126,255,255 <170> 
100 POKES6B69 ,242:PRENT" ICLEAR3— LIEGEN{S 1000 DATA2S5,195,1264,60,36,36,36,0 <214> 
FACE> WIETSPACEHDURCHISPACEHDASTDOHN SPAC 1010 DATAAO,126,195,255,255,126,24,176 <t14h> 
E}+ IDEHLENSYSTEM. " “772 1020 DATA0,24,189,254,254,188,74,0 <102> 
110 PRINT" {DOKN} |ERLEHRENISPACEYWIELSPAC 1030 DATAO0,S56,124,254,254,84,40,16 <71> 
E3NICHT{SPACE3Z DOUNYDIEISPACEIÜORENDE. {SP 10409 DATAO,0,100,254,254,100,0,0 <117> 
ACEFWEHIESSEN{SPACE BORN} PIETSPACEIDIELS 1050 DATAO,136,254,127,254,136,0,0 <93> 
TEE PRINT" DOHNI REIBSTOFFTANKGESPACET D ar 000 DATASS 136 76, 56 136 , 36, 30,36 25 
SFACET B 1070 DATA1L92,172,240,257,252,254,224,128 <202> 
GN? AKETENISPACEIUNDISBACE) ‚FOSCSPACEIA 2107 1080 DATAI ,7,127,63,63,15,3,3 <179> 
” s [a7 .- 
126 PRINT"ICLEARI-IETSPACEI FOSTSPACEHKO 2 a a 103295,259,255,255 , 
ENNENISPACEI FIEISPACE DOKN SPACEFARSCHIE 1110 DATAO,0,0,04,0,0,0,0 E49 > 
SSEN , DIETSRACET UNETNTBOHNS NICHT. * “1645 | 1120 DATA128,252,130,239,238,130,252,128 .<221> 
127 PRINT" {DOHN} AMISPACEINDE TSPACEIKOMM ENDE DES LISTINGS 
TISPACEIDASTSPACES DINNY-YSTERY.| REFFENT 
SPACE} WIELSPACEIES{DOHNIHAREN{SPACHI #IET 
SPAGE} IHRE TSPACEI AUFGABE DOHNFERFÜELLT <23 
128 60518225 «219> 
130 PRINT" {CLEARY STEUERNTSPACEI@IELSPACE 
FIHRTSPACEI _AUM-TSPACE DOHNISCHIFFISPACE 
3MITISPACEIDEMISPACEI "DY-tSPAGEI BOHNIST 
ICK. <151> VE20 LISTING + CHECKSUMMEN (VE V1L.0% 
140 PRINT" {DOWN} VIETSPACEIKOENNENLRPACEY 
SCHIESSEN{SPACE BDOHN>UND{SPACEFBOMBEN, "3 . 1 REM „ SCRUMBLE HAUFTPRÜGRAMM - <174> 
S05UB225 “1775 2 REM . (C) 1985 BY MARTIN RIEDL . <Z215> 
150 PORES6869 ,255: PRINT" IGLFARF" «152> 10 POKESS „0: POKES& ,?8= CLR: 605UBF000 «252 > 
1649 PRINT"@IDOHH LEFTFIALSPAGEF=SISPACE RW 140 PRINT" {CLEARY" Ss POKES697F , 25: POKESSBS 
SONFDEIN{SPALEFRAUMSCHIFF IRFSOFE}" <97> 9,255 <13> 
170 PRINT" TDOHNICLSPACHI= CSPACE RVSONYTA 170 PP=o <117> 
NREISPACEI VLOTSPACEIPTSITRFSOFF. SPACES DO 170 FRINT"{CLEAR DOHN233" sPOKE36879 ,25:R 
HH SPACEIFISPAGCEI=TSPAGE RYSONIYRAKETETSR EM ?53 RUNTER <U2T> 
“146> 200 A-8169: B=8180: C=7844:1=30720: T2=12: 7 





ACEFIGTSPACEIPTSI TRVSGFEF I" 


10186 Compute mi 


programme 















































31 <177> 1070 RETURN 

217 REM HAUPTPROSRAMM <151> 19977 REM BOMBE (POKEN UND AUF TREFFER BE 

220 POKEC ,1:POKEC-22,0 x244> BERPRUEFEB . <100> 
230 PP=FP+1 <1I> 2000 FOKES-21,32 \ <Z0o7> 
240 IFFP=I00THENB=B-1 s13> 2050 IFPEEK (SI) =3THENPOKES, 11: POKES+L,2:Z 

250 IFPP=300THENA=A+1 «1> =0:50=5C+10: GISUBZZ00: POKES , 52: RETURN x110> 
260 IFFP=500THENB=SB-1 <34> 2050 IFPEEK (SI)=&THENPOKES,11:POKES+L,277Z 

270 IFPP=7OOTHENA=A+1 <42> =6; 5C=5C+10: G9SUB2200: POKES, 37: RETURN <141> 
290 D=INT{B=RND(1)) <197> 2065 IFPEEK (S5}7=2THENFOKES „11: POKES+H_ ,2:27 

290 IFD=PRINT#: POKEA+1+L,0:GOT0398 «1357 =9: 5C6=5C0+10: GESUB2200: FOKES , 32: RETURN z118> 
383 IFWS&THENPOKER-1,9: POKEB-i+L,0 ar 2067 IFPEEK{SI=1STHENPOKES, 11: POKES+L „2: 


384 K=INTF(RNDEII RS) H1 <133> Z=0: SC=-80+50: B0O5UB27200: 6DTG10000 <26> 

















385 IFK=1THENPOKEN+1 „A:POKEA+1+L,3: 60703 2070 IFPEEK{SI=BTHENZ=0: RETURN <198> 
88 <210> ZO80 IFPEEK (SI =1OTHENZ=0:RETURN {202> 
45634 ÖTHENPOKEA+1,3:POKEA+1+L,4:60T0388 <76> 2085 IFPEEK {5)=4THENZ=0: RETURN <185> 
387 IFK=3THENT1=INT(RND (LI #B-13- (A+1)) 2087 POKES „5: POKES+L,5 <176> 
I+1:POKEA+TL,T2:POKEA+FT1+D,T1:50TO38BEND 2090 5=5-1:Z7=1 <158> 
IFPP=75S00RPF=775DRPP=BOOORP@=8025GRPP=BO 2100 RETURN £202> 
EOTHENPOKESA?T „ZIBFOKEA+1, 13: POKEA+L+L, 2200 POKES65878, 15: POKEF6877 , 230: FORT=1TO 

7 <241> ?0: NEXT: POKES4B7B „0: POKESA977 ,O <114> 
sg9 PRINT <31> 2210 RETURN <56> 
370 IFA=B144TAB(A=A+1:B=B+l <231> 2999 REM LASER {POKEN UND AUF TREFFER UE 

400 DATAB=S18STHENA=A-1:B=-1 <752> BERPRUEFEN) <175> 
416 GOSUB1O00 <202> 30009 POKEF-44,32 <154> 
440 C=c+Y <142> 32059 IFPEEK tF}=3URPEEK (F} =SURPEEK(F)=ZOR 

450 IFPEEK(TARCIFPEEK tEI=4THENLOO1O <235> PEEK (F} = 1STHENGOSUB2200: 60TO4000 <124> 
457 IFPEEK {CO} =130RPEEK (D-2?7)=13THENLO000 <140> 3085 IFPEEK{F}=130RPEEK (F+22)=13THENSC=S 

460 IFPEEK(C-22)=1LOORPEER (0-22) =BORPEEK ( 6+50: G05UB2200: GITOL1O000 . <20> 
Ü-22) =FORPEEK {C-22I =&0RPEER {C-22)=3THENI 3060 IFPEEK(F+22) =&0RPEEK (F+22)=30RPEEK 

0010 <96> F+22) =2THENSOSUB2200: GITO2010 2463 
465 IFPEEK {06-223 =2ORPEEK C-22 (=4THENO0CO1 30709 IFPEEKtF}I=RORPEEK {FI =9ORPEEK (F+22) = " 
je) “2475 SORPEEK IF+722} =F7 THENG=O: RETURN <2O4> 
470 POKEC „1: POKEC+L „2: POKEC-22,0: POKEO-2 3080 IFPEEK(F)=100RPEEK tF+22) =1OORPEER {F 
2+L,2:Y=0 236> }=40RPEEK {F+22) =4 THENG=Q = RETURN <162> 
480 IFZ>OTHENGOSUB2OOO <242> 3095 FÜKEF ,7:POKEF+L,S <45> 
490 IFGE>OTHENGOSUB300O azir 53090 F=F+22:6=1 <79> 
570 5070230 <150> 3095 IFF>SOLOTHENPOKEF-22,32:G=0: RETURN <70> 
615 REM KAPUTT! <134> 3100 RETURN <182> 
620 FORT=0T02000 NEXT 239 > 3797 REM TREFFER <100> 
622 PP=PP+SC <159> 40009 POKEF,„11:POKEF+L, 2:6=0:56=5C+10: FOR 

425 PFOKES6879,127:PRINT"{RBLUE DOWNS SPAC T=1T010: NEXT: POKEF „32: RETURN <132> 
E3}SCHRE{SPACEF: "; PPı IFPP>HPTHENHP=PP <b0> | 4019 POKEF+Z2, 11: PDKEF+22+L,2:6=0: 50=5C+ 

630 PRINT“ {BOHNIIHLIEHSCORE{SPAGE} "3 HP “211> £0:FORT=1TO10: NEXT POKEF+22, 32:RETURN <128> 
640 PRINT" {DOWN3 RIGHT3INOCHLSPACEIMALFE 89737 REM JOYSTICK -— DATEN EINLESEN “20973 
SPACEILI/NI" <1853> 9000 DATA24,167,0,237,17,145,41,127,141, 

650 GETAF <27> 13,3,16%,0,141,34,145,74,2357,32,145 <221> 
660 IFAS="N" THENPRINT"{ELEARF" SNEWSEND L77> 30106 DATA24,109,13,3,74,74,170,169,258,1 

670 IFAt="J"THENSC=O: Z=0:6=9: 5070160 “168> 41,34,145,76 <155> 
630 G0T0550 <254> 7030 FORT=0T032:READI:POKEBZI+T ,I:NEXT <2356> 
730 FRINT"IELEAR BELNE?"MPOKESAB79 ,27:P0OK 7050 RETURN <11> 
EF6869 ,‚Z4A0: END <1&6> | 10000 POKES4B49 ,240:PRINT"ICLEAR RIGHT2Y 

79797 REM JOYSTICKABFRAGE <136> MISSIONISFACEICONPLETED" : 6010622 <ilz> 
1009 8Y5828: IFPEEK (731 I=OTHENY=O:RETURN #345 10010 PRKE3F4869 ,240: FRINT"{ELEAR RIGHTIY 

1010 'IFPEEK (7BL)=ATHENY=Y-i . <136> LEIDER{SFACEI VERLOREN" : GOTOS2Z <156> 
1020 IFFEEK (7B1)=37THENYeY+1 <B5r 10020 POKESSBAF , P4Ö: PRINT" ECLEARISIETSPA 

1020 IFZ>OTHENLOSO <45> CEIHARENISPACEIDASCSPACEIMYSTERYEDOEHN SF 

1040 IFPEEK (781 )=8THENZ=1:5=C-1 <219> ACEHLEIDERTSPACEINICHT TSPAGEFERWISCHT" EG 

1050 IFG>GTHENRETURN <141> DIOA22 <61> 
10580 IFFEEK (7Bi}=BTHENG=1:F=C+22: RETURN KA7E ENDE DES LISTINGS: 





Bei diesem Programm laufen zwei Schriftbänder über den Bildschirm. Das erste Schriftband von 
links nach rechts, das zweite allerdings von links nach rechts und zwar in Spiegelschrift. Das ein- 
malige Umschreiben des Zeichensatzes dauert etwa 47 Sekunden. 


Über zwei INPUT-Befehle kann dann ein String bis zu 170 Zeichen eingegeben werden. 
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programme _ 


























VEZO LISTINGS + CHECKSUMMEN (VE v1.0 SPACES DOHNYBSTSPAGEI ZEICHEN{SPACEI DO, 
HNI"SCH="{SPACEI" x212> 

1 EFPEEK {S120) =2BANDPEER (51213 =34THEN14 <397> 15 INPUTAS: INPUT" {DOWN} "3 B$: IFB$=""THENG 
2 POKESS, 19: POKESA,19:CLR <73> gann <237> 
3 CH=72768: FORL=5120T05472: POKEL „PEEK (CH 16 Af=AS+CHHBEH" CSPACEFHTSPACEN" <15h> 
I 5 CH=CH+LINEXT <1> 17 N=LEN{AS$) = IFN<22THENAF=A$+AS:GOTO17 <157> 
4 CH=32768: FÜORL=5144 11065448: A=PEEK ICH) : EH 193 G=LEN(AF) :FORT=-HTOISTER-1: DF=DS+MIDFL 
=CH+1=B=0 “eie> A$,T,172NEXT:D$=RIEHT$ (D$ „223 +D# <A4> 
5 IFINT (A/ZI#ZERTHENB=B+128: A=A-1 <5lL> 17 AS=AS+LEFTS (AS 22) <21l> 
& IFINT{A/N#A<ATHENB=B+54: A=A-2 <115> 20 PÜOKES6879 ‚9: POKE36869 ,253 <B1> 
7 IFINT{A/B}®B<ATHENB=B+S2: A=A-4 <1357> 21 PRINT"CCLEAR WHITE DOHNS> 
8 IFINT(A/LEIH1IS<ATHENB=B+16: A=A-8 <221> — U DiHN 20 
7 IFINT{A/S2) *32<ATHENB=B+B: A=A-16 <127> BUN ———r <234> 
19 IFINT (A/AA RSA<ATHENB=B+4: A=A—-32 <82> 22 PRINT" {BLUEY”" <46> 
11 IFINT(A/12B) #I2B<ATHENBSB+Z: A=N-64 <104> 23 FORL=1TON=SPRINT"CHONE DOWNF3"MIDS (At, 
12 IFINT (A/256) #256XATHENB=B+1 “2163 L,22) "CRFSON BOWHNZI"MIDF (DE ,N+1-L,22) <107> 
15 POKEL,B:NEXT “246> 24 FORM-1T050:NEXTH= NEXT: GOTO23 <97> 
14 POKES6879 ,24: PRINT" (CLEAR BLACK DOUN} ENDE DES LISTINGS 


TEXKTPLSPACEZIPROTSPALCEHSTRINGTSPACEIMAX. 


Yy Einmal 

mn A ) 
| gent sein! 

In dem Spiel Railway dreht sich 
alles um die lieben Agenten. Die 
Geheimdienste KMA (Karchen’s 
Möchregern-Agenten) und STG 
(Spezialtechnischer Geheim- 
dienst) sind arg verfeindet. Soeben 
hat der STG einen seiner Spione 
aus dem gegnerischen Lager be- 
freit und in die Leitstelle, die als 
Zug getarnt ist, gebracht. Doch 
schon gibt es neue Probleme. Die 
Agenten des KMA sind auf Zack 
und verstellen die Weichen, so 
daß der Zug zu entgleisen droht. 
Nun trete ıch als Agent des STG 
‘in Aktion. Meine Aufgabe ist es, 
die Weichen von 1-9 mit den Ta- 
sten von 1-9 so umzustellen, daß 
der Zug nicht entgleist. Hat man 
28% Punkte erreicht, erscheint un- 
ten im Screen eine Verbindung 
auf das alleinstehende Gleis, wo 
man die Lok nun hinbugsieren 
muß, Hat man das geschafft, geht 
das Spiel ein Level weiter, und 
wieder heißt es den Zug vor dem 
entgleisen bewahren, 








52,55: POKESS „55: POKEZ022,0: SCNELR: VOLS <224> 
20 FORA=1T014:READAF: FRINTTAB 10) J AS: NEX 
TA <233> 
30 CHAR1,06,22,"tYELLOH RVSON SPACEZIALL 
ETSPACEIRECHTETSPACEIBEITSPACEITER (19867 { 








SPACE2 RPSOFFY" <122> 
40 DATA" CDOWNZI" <135> 
N en EEE I ses | 59 DATA (SPACEr —. CSHIETSPACEF —n er 
Em NAT 07 Pe {SHIFTSPACE2 SPACE)" <226> 
A REM -- MRITTEN FOR THE 0-16 BY se —— czoa> | 60 DATA"ESPACEIT m ITSHIETSPACEH Al | 
5 REM -- CARSTEN REINKE -- €167> Breuer on KSHIFTSeA <201> 
6 REM —- 1000 BERLIN 21 = XB9> un WOSITTEIIPFERHERTSRACE 
TREM — m £12> 2% AIR" SPA <210> 
2 REM --------- 4 <41> 3 <250> 
19 COLORO,2,1:C0OLOR4,2,1:COLOR1,5,5:POKE 90 DATA" ISPACEI I I TSHIFTSPACEN || | N TSHIFTS 
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programme 


PAGE III" 
109 DATA" {ISPACEI JH ISPACEI - “= ISHIFTSPACE 
yu Win 
110 DATA"IL.BLE DOHNZY" 
120 DATA” — {SHIFTSPACEI „ ISHIFTSPACEI — vr 
mn, m ISHIFTSPACERF —" 
130 DATA” | I LSHIFTSPACEI I TSHIETSPACEH EI} 
Fa u ee u 
140 DATA" | I {SHIETSPACE> I FISHIFTSPÄCEI N} 
a nz 
150 DATA” EITSHIFTSPACEY HITSHIFTSPACEI N EI 
7 MESPACEI , #" 
180 DATA" | 1" 11 1 I TSHIFTSPACE} I TSPACE2 
371" 
170 DATA" mm UIISHIFTSPACEI - TSHIFTS 
PACEZI I" 
180 TRAPSSO:FE=0: FORA=832T0849: READBS: FE 
=FE+DEC tB&) ı POKEA,DEE {BF} 
195 50=50+4:SDUND1 „SO,4:S0LUND2,50+1,4:NE 
xrA 
190 IFFE<>2131THENGOTISSO: ELSE 5Y5832 
200 REM ----— ZEICHEN-ROM KOPIEREN----—- 
210 DATAA2,00,BD,00,00,9D,00,38,BD,00,Di 
„70,00,37,CA,DO,F1,60 
220 TRAPS40:FE=0: FORA=14552T014671: READB 
: FE>FE+B: FOKEA,B 
225 50=580+4:S50UND1 ,50,4:S0OUND2,S0+1 ,4:NE 
xTA 
230 IF FE<HOTFFATHENPRINT" CELEARHFEHLER: 
":L1ST240-360: END 
240 REM ----DATAS FUER NEUE ZEICHEN----— 
2S0 DATAO,15,294,48,104,68,67 ,56 
760 DATA66,67,58,104,49,24, 15,0 
270 DRTAO,240,24,12,22,354,174,66 
280 DATAA5,174,34,22,12,24, 240,0 
270 DATA6SB, 255,68,68,68,568,255, 48 
300 DATAO,0,0,0,0,0,0,0 
310 DATA66, 255,66 ,66 ,66, 255, 6,66 
320 DATAIO2,102,102,0,0,0,0,0 
330 DATAZAB , 252, 226 ,255,255,36,259,56 
340 DATA31,63,71,255,255,34,255,36 
350 DATA?4,560,126,102,102,126,126,124 
360 DATAL26,126,126,102,102,126,60,24 
370 DATAS2,110,173,255, 119,255, 122,52 
390 DATAAO,60,52,60,60,609,653,70 
370 DATAG&, 255,66,66,65,566,255, 566 
400 REM 
410 REM NAECHSTES PRGE-TEIL LADEN 
420 REM 
430 TRAP 550 
440 PRINT:PRINT"{DOHN HHITE SPACEZFWOLLE 
N{SPACEISIETSPACEHANWETSUNGEN £SPACEF(JY/N 
YLSHIETSPACEI?" 
450 GETKEYA$F: IFA$< >" I" ANDAS<>"N"THENA4SO 
460 SCNELR: PRINT” {DEHNZINER” 
8370 IFAF=" I" THENAS="TRAILWAYZ2":ELSEAF="RA 
ILWAYZ" 
A490 PRINT" CDOHNZILOAD"SCHRF CISM 3 AFSCHREL 
3453 "CHOMEI"S 
450 POKE239,5:PDKE1319.13:POKE1320.18rF0 
KE1321,092: POKE1322,213:POKE1323,15:END 
500 REM 
510 REM FEHLERABFRAGEN UND ANZEIGEN 
520 REM 
520 AN=700:EN=2105 :5USUBS40: GOTOEDO 
540 BN=240: EN=370: SOSUPRS40: GOTOA0O 
S50 AN=1:EN=610: GOSUBSA0:50TD&10 
SA0 PRINT"ECLEAR SPACEIESTSPACEIGIGTISPA 
:CEIEINEN{SPACEFFEHLER(SPACEIDERTSPACEI IN 
{SPACE+ZEILE"EL 
570 PRINT" ZSPACEIODER{SPACEIZEILETSPACEI 
"AN"—-"EN"CSPACEILIEGT." 
580 FOKE2022,2 
570 RETURN 
&00 PRINT"£LCLEAR DOHNZILIST"EL"-"EN"IHOH 
Er": FOKE239,1:POKE1319,13: POKE2022 ,0 
610 END 

ENDE DES LISTINGS 












































21897 


*80> 
“e237> 


797 
“185> 
<163> 
«161> 
2i> 
“ad> 
“F> 


“1187 
<170> 
<161> 


£234> 
“257? 
<1508> 


x1397> 
210> 
“967 
<232> 
<93> 
x223> 
<179> 
<4a> 
“32> 
<1B86> 
<139> 
<132?> 
<204> 
<106> 
<1437> 
<138> 
s<104> 
<32> 
<46> 
“327 
«795 


73? 
x221> 
<228> 


<72> 
<120? 


£125> 
«132> 
<93}> 

<1335> 
<173> 
<79> 

<100> 


«1487 
<iää> 
SZAGFF 


“2227 


«37> 
<228> 


WRITTEN FOR THE C-i& BY : — 
GARSTEN REINEFE u 
1000 BERLIN 2i - - 


souruun® 
rl 
m 
= 
1 
i 


REM + ee nn 
f0 VOL-4: SENELR 

20 COLORO,14,63C0L0R1,1,0:CDLOR4,15,3 

30 CHARL,10,11,"EQUES-SOFT{SPACEIPRESENT 
gu 

40 CHAR1,13,13,CHR$C1SONH"RISPACEIATSPAG 
EYLILSPACEHLISPACEIWISPACEFHATSPAGEIY" 

50 CHAR1 ,11,15, "tELASHOFFIBYLSPACEICARBT 
EN{SPACEIREINKE" 

60 FRRA=1TOSO005STEP2S:SOLNDI ,A/S, 2: SOUND 
2 ,A/5+2, 23PRINTEHRS (1475; NEXTA 

70 SENCLR 

80 PRINT" tDOHN2 SPACE2} IERZLICHLSPAGEFOL 
LLKOMMENTSPACE 3 ZUESPACEI_AILWAY SPACE! ! 
y" 

30 PRINT" CDOHN SPAGE2I-EINE{SPACEIAUFGAB 
EISPACE}ISTESPACEIRS , {SPACEIDIETSPACEI CE 
ICHENTSPACE+SO" 

100 PRINT"{DOHN SPACEZITULSPACEISTELLEN, 
{SPACEIDASSTSPACEIDIE SPACE LOKOMOTIVEN 
SPACEFDIE" 

110 PRINT" {DOHN SPAGE2}ILEISELSPACEINICH 
T{SPALEIVERLASSEN." 

120 PRINT"{DOHN SPACEZI-HSPACEISTARTEST 
{SPACEIMITISPACEHEENER{SPACEILDK , {SPACE} 
UND{SPACEIGE" 

130 PRINT" {DOHN SPACE2ILRENGERISPACEIDUT 
SPACEIDIETSPAGEILOKSTSPACEIAUF{SPACEIDEN 
{SPACE} GCHIENEN" 

140 PRINT"{DOHN SPACEZIHAELST ,SPACEIDES 
TG{SPACE}MEHR {SPACEI TUNKTE {SPACE} BEKOMMS 
Fr" 

150 PRINT" DOWN SPACE2YDU." 

160 CHAR1,7,25," | ITTEISPACEIDRUECKELSPAC 
E3EINETSPAGEN ASTE" 

170 POKE239 ‚0: WAIT239,1r POKEZ022,4:SCNCL 
R: POKE2022,0 

120 PRINT" CDAHN SPACE2>- MMERLSPAGEIWENNt 
























































SPACEFDUTSPACEI ZOOLSPACEI UNKTETSPACEIER 











REICHT" 

130 PRINT"IDOHN SPACEPIHAST „ESPACEIMUSTE 
SPACE +DUTSPACEILTSPACEFL OKTEPACEIINTSPAL 
EIDENTSPACE} IAHNHOF" 

200 PRINT"{DOHN SPACEZF KUNTERISPACE}DEMT 
SPACEIE.REINKE) TSPACEFLEITEN. —ANN" 

210 PRINT"{BDOHN SPACE2ZISPRINGTISPACEIDAS 
{SPACE WPIEL{SPACEI INTSPACEIDASTZFAGEFNA 
ECHSTE” 

220 FRINT"IDOHN SPACEZILEVEL." 

230 PRINT" {DOHN SPACE2F JEITSPACEHEINEMIS 
FACE} NFALL{SPACEIWERDENTSPALEITIRESPÄCE 
>20" 

240 PRINF"{DOHR SPACEZITUNKTETSPACE>ABGE 
ZUGEN. {SPACEY FACHTSPACEISTSPACEI NFAELLE 
N” 

250 PRINT"{DOHN SPACEZYISTIBPACEIDASTSPA 
CEFWLELTSPACE} ZUTSPACEITNDE." 

240 PRINT"{DOHN SPACEZIWTEUERUNG{SPÄCE}: 
{SPACE} |ENUTZEISPACEIDIETSPACEN ASTENtSP 
ACEFLTFISPACEN!" 

270 CHAR1,7,25," 1 ITTETSPACEIDRUECKETSPAG 
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x52> 


“2357 


2257 
<x143> 
<97> 
<102> 
<B3> 


<178> 


<136> 
<110> 


<119> 


<79> 


<230> 
<7A> 


<247> 


xo> 


2397 


<B35> 


10/86 


10/86 


E}EINEISPACE} ASTE" 

zZE0 POKE2I9,0:WAIT2Z9, 1: PRINTCHRE 142} 
290 PRINF"{CLEAR DOHNZINEW" 

300 PRINT" {DOHN2ILORD"SCHRF (34) "RAILWAY 
3" CHRE (34) 3 "CHOMEI" 














310 FORA=0T04: READB: POKEA+1319 ,B:NEXTA=P 
0KE237,5 
320 DATAIT,13,92,245,13 

ENDE DES LISTINGS 


HRITTEN FOR THE C-1&4 BY ı -- 
CARSTEN REINKE m 
1000 BERLIN ?1 _ 


SONDNRKMN- 
Fi 
m 
= 
t 
I 


10 COLORO,1:COLORA,1 

20 POKE65298,192: POKE64S299 „Sör VOL2 

39 LE=1:5CNCLR; BOSUBAAO j 

40 CHAR1.3,24,"MOECHTEST{SPACEIDUTSPACH} 
JETZT{SPACEISPIELENTSPACEFPESPACEIT" 

50 GETKEYASs IFA&< >" J"THENEND 

60 CLR:LE=i 

70 DIMWX (7) „WY (9) ,XR(S} ,YR(5) „KP15) „YPi5 
} AL (5): GOSUB1270:PUDEF "O" 

80 COLORO, 1:COLOR4,1:COLOR1,3,4:SCNELR 
DuB THE ESESEEERSEREREFSFERSERERERERREE) 
PH) "TCHAR1,0,0,R# 

100 FORA=1T022:CHAR1,0,A, "I {SPACEISF I "EN 
EXTA: CHAR1,0,23,R$ 

110 CHAR1,2,24,"IYELLOWILEVEL:OO" CHART, 
14,24, "SCORE: 0900" z CHARI „26,24, "ERASHS:O 
9” 

120 GOSURBAOTCHARL ,A,24, "YELLOW "SPRINT 
USING"##"sLE; 

130 TI$="060000" 

140 COLOR1,12,7:FORA=1TOLE: XE=XP (A) a YE=Y 








FIRAIEKPEW SAP EAIHXR EA SE YPEAI=YPIAIFYR (A) 


150 SOUNDS ,0,0:SDUNDS , 700,20 
140% P=PEEK L3072+XP (A) +40#YP (A) ) ı IFP=40TH 
EN1360 

170 ONAL (A) -Z&G0T0L180,210,240,270,300,86 
0,370 3 

1B0 IFXR(A)=1THENIFPX >31 THENGOSUB7SO 

170 IFYP A) =1THENIFP< >SSTHENGOSUB7SO 

200 GOTO480 

210 IFXR(A}=LTHENIFP< >S1THENBOSUB7SO 


220 IFYR(A)=-1THENIFP< >33THENGDSUB7SO 
230 BOFG4BO 

240 IFKR(AI=-1THENIFP< >31 THENGOSURFSZO 
250 IFYRtA)=ITHENIFP<FSSTHENGUSUBTSO 

260 GOTB4RO 

270 IFXRtA}=-1THENIFP< >31THENGOSUB7SO 
280 IFYRtA)=-1THENIFP< >3SSTHENBOSUB7SO 
290 GDTO4BO 

300 IFXRtA)=1THENIFP< >31ANDP< >29ANDP< >30 
THENBOSUB7ZO 

310 IFXR(A)=1THENIFP=2FTHENXR (A) =0: YR iM) 
=1:B0T0470 

320 IFXR(A)=1THENIFF=S0THENXR (A)=0: YRiA} 
=-1: 6070440 

330 IFXR A) =-1THENIFPS>S1ANDP< >27ANDP< >2 
STHENBOSUBTSO 

340 IFXR(A)=-1THENIFP=27THENKR (A)=0: YRı(A 
I=1:50T0470 

350 1FARtA)=-1THENIFP=2BTHENXR (A) =03 YR{A 


335 
<a5> 
2437 


xa> 


<1051> 
“1323 





<2P50> 
<218> 
2325 
«?724> 
<167> 
<8977> 
<12> 
<246> 
<2> 
<170> 
<108> 
<130> 


<107> 
<22b> 
sE2B> 


<110> 
<113> 


«176> 


<195> 


<203> 


x1795> 
<110> 


x157? 
«98> 


“753? 


“«140> 
£335> 
<6F> 
«35> 
<65> 


<ı2> 
6537 
S2r4> 
e135> 
«94 > 
<29> 
A73> 


s124>: 


<B9> 
<73> 
x<B8> 
ER 


“238? 


}=-1:6DT0450 
360 GOTO4BO 
370 IFYRUN=1THENIFP< FSSANDPS >ZBANDP< >30 
THENGOSUB730 

380 IFYR(A)=1THENIFP=ZATHERKR {A)=1:YR(A) 
=0: BOTO440 

3970 EIFYR{AI=1THENIFP=3OTHENKR {A} =-1:YR iA 
?=0:6070450 

400 IFYR{AY=-1THENIFP<>SSANDP< >27ANDPE>2 
ITHENBUSUB?ZO 

410 IFYRtA)=-1THENIFP=27THENXR {A =1TYR{A 
Y=0: BOTO440 

420 IFYR<A)=-LTHENIFP=2FTHENXR (AI=-IE YRI 
A) =0: 5070450 

430 GOTO480 

440 PL$(A)="#": 6070480 

450 PL$(A)="$" 6070480 

460 PL$(A)="%":BOTU4BO 

470 PL${A)="%" 

480 PW=XE+40#VE: POKE3O72+PW AL {A) : POKE2O 
48+PW, 77: CHAR1 ,KP EA) „YPtfr „PLEAYSAL (AI = 
P 

490 60101270 

500 SOUNDS ,O,0:S0UNDS, 700 , 20: 60T0520 

510 NEXTA:GDTO140 

520 BETES:E=ASC ER) -48: IFE< LORE>FPTHENS1O 
sELSEEF=1 

530 P=PEEK (3072+WK (E) +40#WY {E) } : PW=3072+ 
WXXEI H+AORHY (EI 

340 UONEBOTOS6O ‚360,600 , 540, 450,690, 690,6 
50,650 

S50 GS0TIS10 

560 IFP=2F7THENPLKEPN,ST 

570 IFP=31THENFOKEPW, 77 

580 IFF=27THENPDKEPW, 29 

570 GOTOS1O 

600 IFPXZLTHENGZO 

610 IFP=31 THENPS=33:GDT06440 

620 IFP=33THENPS=727:B0T0640 

830 PS=P+1 

630 POKEPW,PS:60T0510 

&50 IFP=S0THENPOKEPW, 31 

&50 IFF=31THENPOKEPW,28 

&70 IFP=2B8THENPOKEPW,30 

480 S0T0510 

&70 IFP=Z0THENPOKEPW,33 

700 IFP=S3THENPOKEFW,2? 

710 EFP=23THENPOKFEPW, 30 

720 GOTUS1O 

730 POKE3O72+ KE+A0OrYE, AL (A) :POKEZOSE+HXE+ 
A08YE,77 

740 XPtA}=10: YP{A)=2: KRtA)=i:YRiAI=O:PLF 
(Alzs'4"; 

750 AL(A}=31: XE=10: YE=2: P=31: IFSL=OTHENS 
E=SEC-20: IFSCSOTHENSC=O 

760 CH=CH+13 IFCH<6THENCHARI ,33,24,""2PRI 
NTUSING* CYELLORFSH" SCHI : CDLOR1,12,7 

770 SOUNDI ‚515,10: SDUND1 „453, 10: SOLUNDI ,3 
83, 19: SUUNDL „516, 20: SOUND1 „345,10 

780 IFCH<STHENRETURN; ELSESCNCLR 

770 CHAR1,10,10,"{YELLON RUSON SPACEIGTS 
PACEIATSPÄACENMISPACEFETSPACEZFDISPÄGEIVE 
SPACEFESPÄCEIRISPÄCE, RWSOFF+" 

800 CHAR1,&, 12, "DULSPACEIHAST"+STRE (SCHE 
S+LE#500) +" ISPAGCEIPUNKTETSPACE>ERREICHT. 





























810 CHAR1,4,14, "DUXSPACEIBISTISPACEFIMCE 
PACEFLEVEL"+STRE (LEI FF ISPACEFGESCHEETERT 
Li} 





820 CHAR1,3,17, "MOECHTESTISPACEIDUTSPACE 

}WEITERSPIELENTSPACEIPLSRACETTF/N" 

8350 BETKEYASı IFAS< "IS" ANDAS< >" N" THENBSO 

840 IFAF="T"THENRUNAO 

950 END 

360 COLORI,14,4 . 

870 CHARI DRZRTIBLREHL___ LI... I__ 
I" 
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395 
<iF4> 


«1705 


x<21> 


s1189> 


<201> 


x197> 


<B3> 
<B> 
<211> 
<230> 
“2477 
«r5da> 


x237> 
64? 
<26> 
<82> 


397 
x3> 


«1353> 
x<110> 
3773 
2742 
<134> 
<150> 
s11> 
<54> 
<108B> 
<&ö0> 
«1&5> 
xB9> 
176: 
s132> 
<240> 
<152> 
<238> 
<177> 
<2A> 


<142> 


S36> 


«2443 


160> 
x246> 


<146> 


2307 


zer 
x135> 
s30> 
<213> 
<104> 
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programme 


880 CHAR1,2,3," !ISPACE L.GRNY 'ISPACEF "iS 















































































































































PACE2ZY '{SPACE3} 'TSPACE4 BELBEY!ASPACE2 IL. PAGEZ BLUE!" <207> 
GRNF' "SPACE2Y"""TSPACEI TSPACET BELUEI!" <145> 1050 CHAR 52,20, "!ISPACES BANIÜISPAGE UL 
890 CHAR1,2,4,"!CSPACE BRNIKISPACEF {SPA SPACES3 (CISPAGE2 BLUEF! TSPACGEISY!" <243>5 
GE L-GRN} TBRNI CTSPAGEII (TSPAGES BLUEF!T 1060 CHART OZEZITN__L 0 LLLLLUN 
SPACE2 ERNICCLSPACEZFLLCTSPACEFTISPACGE L 0 | LLLLLLLLLIIN a .. 218» 
„GRNF "CSHIETSPACE} "{SHIETSPACEI {SPACE B 1070 EDLIRL ,B,ArCHAR1 ,6,1%,"{RFSON SPAC 
LUER N“ <27> +RAILWAYISPACE RESDEFY" <112> 
200 CHAR1,2,5," !CSPALES BRNF SPACE? Bit 1080 EHAR1,5,15, "BYISPACEID. TSPACEIREINK 
ER'TSPACEIZ BRNFCCSPACEI LISPACE3 ({SPACE E" <161> 
BLUEY!" <A3> 1090 RESTORE1110 £125> 
710 CHARI SD NL_LLLLLLLLLIU.N LU. ı_ 1100 FORB=1TOF:READX ,YSCHAR1,X,Y"IRESON 
LLLLLILIN Bart <177> F"+BTRS CB) +" {RFSOFFF"TNEXTB <139> 
920 CHAR1,2,7,"IL-GRN3" "{BPACEZ BLUEFTEL 1110 DATA19,3,7,7419, 7,26, 7,7410,16, 10,5 
„GRNF"ESPACEI' ' "TSPACEN "{SPACE2Y' {SPACE 0,12,30,16,19,20 <113> 
BLUEFTISPACE2 L.GRN}' {SPACE} {SPACE BLUE 1120 FORA=1TOLE <32> 
FILCSPACEZ L.GRNF 'TSPACEZI ""CSPACE2I""" <171> 1130 X=INT<RND{1) #35) +2: Y=INT{RND(1)%#19} 
330 CHARL,2,B,"TRRHFRÜLL.ERNI ISPACE BIO +2 <80> 
EFTKBRNIIKE-GRNFTARRNSCCTISRACEY CISPACE 1140 IFY<>17THENLI1&O <2077> 
L.GRN}Y"LERNYCLL.GRNF SBLUEI!ISPACE2 BRN} 1150 IFX>FANDX<C17THENL13O <175> 
VISPACEIKTSPACE BLUE! TSPACEZ BRHY(TSPAC 1140 P=PEEK (3072+X+40#Y) = IFP<270DRP>33THE 
EZI LLL„GRNI {SPACE BRN}LO 22075 W110 “ar> 
940 CHAR1,2, 9, "ISPACE L.GRNF'TBRNFLISPAG 1170 COLOR1,12,6 <163> 
E, BLUEY!TSPACE BRN} (XSRACEI L.GRN} ISPAC 1190 IFP<C>32THENAL (A) =PEEK (3072+X+408Y) <194> 
E2 BRNYÜISPACEI VEBLUEHTISPACHSIN_____._ it 1190 un--zuG0T01210,1220,1230,1240,1230, 
SPACE ERN>TISPACEISI" <127> 1130, 1240 <B6> 
F50 CHARL5ZRNO,FTSPACEHTLSPACE2 BLUEI!TS 1700 GOTO11SO £X238> 
FACES BRNFTISPACES, BLUES !ISPACE L,GRNY"' 1210 XR(A)=0: YRiM=LıPLF (AV =-"R":50T01250 6777 
ISPACES>"" "TSPÄCEY {SPACE2 BLUEH'ISPACEZ 1220 XRtA)=1:YRtAI=O:PLE(A)="#":60T01750 <4> 
L.GRH}  ISPACE2Y" 4375 1250 XRiAI=-: YRIAI=0: PL$ LA) =" B0T0125 
740 CHAR1,2,11,"CHBLHEIL___ *________ + o 2143> 
SHIFTSPAGE BRK3CLL.GRNI 'ISPACE2Y "TBRNYÄE 1740 XREW SC: YRIND=-LaPfL$ (Ad=" 501? 
CEL-GRN? 'CBRHFCISPACE £.ORNF '{BLUEFTISPA 0 <186> 
CE £.GRN: TBRNIKEL.GRN} SPACE" EIFFF 1750 XP (A}=X: YP{A}=YE CHART ,X,Y,PL$ A} NE 
770 CHAR1,2,12, "tBLUEI! ISPACEISIISPACER “Ta 27% 
BRH3 SCSPACE2F TISPACETF TESPACEZF CXBLUEN 1240 RETURN <126> 
{SPACE BENIISPACEFVESPACEF" 67? 1270 RESTORE1280: FORB=1TOF:READX,YıWX tB) 
580 CHARi,2,13, "{BEHEFFISPACELSHN_______ =YıblY {EI=YıNEXTR: RETURN <151> 
= PISPACEST" 1377 1280 DATA1B,2,6,6,18,6,25,6,5,11,18,11,3 
790 CHAR1,7,14,"{SPACE2O L.GRNF'"TSPACE 2,13,32,17,18,21 . <254> 
23 "{SHIFTSPACE2YISPACE BIUEY!SSPACE2 L. 1279 SC=5C+2: IFEF=1 THENEF=0: TI#="000000" x29> 
BRW3TTLSPAGEN" <1971> 1300 IFVAL{TLE} >LODORGL=I THENSE=SC-1.5 «70» 
1000 CHAR1,2,15," {BLUE} T{SPACEZO BRN3 LT {310 IFSCH?POOTHENIS4O <182> 
SPACEZFITL-GRNI {SPACE BRN>({SPACE BEUE} 1320 CHAR1,20,24,"£YELLOSMF"SPRINTUSING"# 
ICSPACE? BRNFÜILL.GRNY'" <97> #44", 504 <146> 
1010 CHAR1,2,16, "{BLUEF!TSPACET REDY ISA 1350 COLOR1,12,7:G0T0500 <78> 
AGEIT BRNITISPACEI BLUES! {SPATEF BRNIC" <Z48> 1340 IFGL=OTHENSE=O: CHAR1 417,17, "TBLUEF_ 
1020 EHAR1,2,17,"{BLUEITISPACEZ L,GRNI'' _08=-05+200: 5-1 22545 
ISPACEZ REDYTEBLUE}___ ___ {SPACEIL__ _ _ __. 1350 GOTOSOO <142> 
=-____."____" <48> 1350 GL=0r:A=LEsSLE=SLE+1:95=-95-50:SC=0:NEX 
1059 CHAR1,2,1IB,"TISPACE L.GRNFISPACE B TA:6OTO12O <278> 
RU3CAEL.ORHF SSRACE REDICTL.GRN}" TSRACE ENDE DES LISTINGS 
Sr CBLUEITTSPACE L-GRNI'TSPACE2I""""TSPA 
CE4Y "CSHIETSPACEZI " {SPAGE2 BLUE}! " <161> 








1049 CHAR1,7,19,"IXSPACE ERNIÄLSPACER Lu 
GRN? "{BRNIÄ{LL.GANF {SPACE BRN} CIISHIEISP 
ACE L.GRN}' "SPACE BRNIC{BLUEN!ISPACE BR 

















ohne 


N}ÜCSPACEZI LCÜHLCSHIETSPACESF VASPACEZF ({5 








ıAıhkr% 








bemerkbar. Auch 


”Noch ein Spiel” ein "N’einge- 
ben, wird ein Reset erzeugt. Also 
nach dem Eintippen das Pro- 


gramm erst abspeichern! 
Kr 


Return’ zu 
drücken. Kann man keinen Stein 
mehr setzen, so gibt man einfach 
="Pein. Könnte man allerdings 
doch noch setzen, macht sich der 


Gespielt wird nach den interna- zugeben, Computer 
vionalen Domino-Regeln (Wer- 
den im Programm auch noch ein- 


mal erklärt.). Während des Spiels 
braucht man nur die Zahlen ein 


wenn man falsche Zahlen einge- 
geben hat fordert der Compster 
mich erneut auf zu setzen. Vor- 
sicht: Wenn sie nach der Frage 
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CHECKSUMMEN {DOC v1.0) 


iO REM HH 
z0 RE * 

350 REM #DOMINO 
406 REM #* 
50 REM * 
60 REM * 
70 REM * 
80 REM # 
70 REM Basen 

490 PRINT"{CGLEARF" 

119 COLDRO,1:CGLOR4,4,3 

120 CHAR, 197,1," {BLUE RYSONYLCIHISPACEILF 
BALSPACEIBY{SPACEID.KRAUSERVSOFF GREEN} 
El 


By 


D., KRAUSE 


LEE SE Su Zu u u; 


130 CHAR1 21,3, "CRESON HHITEI Ir — — 17 
m [0 





149 CHARZ,21,4," [S{SPACE3eieme| |nnalmise 


ACE}e|" 

150 CHAR1,21,5," | TSPACE}@TSPRACE? | XSPACEZ 
}| TSPACEZI | {SPACESI |” 

160 CHAR1,21,6,” | W{SPACE)e|mmn| |san| sis? 
ACEre!" 

170 CHAR1,21,7,* lan bunt 31 

180 CHAR1 34,8," m" 

179 CHAR1,34,9," |8{SPACEI@|" 

200 CHAR1,34,10," | {SPACEIFL" 

219 CHAR1,34,11,"18{SPACE+ Re |" 

220 CHAR1,34,12," 741" 

230 CHAR1,34,13," |@{SPAGE2} |" 

249 CHAR1,34, 14," 1 ISPAGEIF |" 

250 ECHAR1,34,15," [ESPACEZIE|" 

260 CHAR1,34,16," LH {RFSDEFI" 

270 CHAR1,34,18, "BLUE BVSONIC-164CRWSOF 
FE GREEN}" 

280 PRINT" CHOHEF": FORA=1TOLBSPRINTTAR (A) 
"ERVSONIDOTRVSOFFIMICRVSONINO" = NEXTA: FOR 
A=1T079:NEXTA 

290 PRINT" CHOHEF "= FORA=1TO18B:PRINTTARtA) 
"DOLRVSONFMECRFSOFEFFND" = NEXTA:FORA=1T099 
=NEXTA 

300 PRINT" RIGHT DOHNI HHITEIKENNENTSPAC 
EISIE{SPALEIDIECSPACEHSPIELREBELNTISPACE 
SIK CRVSON FLASHONII/NTELASHOFE RYSGEFY>E 
GREEN}" 

310 SETAF: IFA$=""THENZBO 

320 IFAs="N"THEN1530 

339 PRINT"{4UPI"3 

340 PRINT"CHHITE SPACEZOYBITTETSPACE RVS 
ON FLASHONIWARTENTELASHOFF. RYSGEF, SPACET 
HZ 
: 350 DIMA$ (78) „B& (28) „C$ (29) 

3640 C=0:FBRA=0T06: FORB=-OTOC: D=D+1:AFID)= 
CHR$AB4+A} SCHRF (48+B) «a NEXTBS C=C+H1:NEXTA 
370 FÜRAI=1TOB 

380 C=9:D=0: FORA=1T02B:B=INT(Z#RND{L)+1} 
s IFR=1 THEND=E+1:B£ (C}=A$ (A) = BOTO40O 

390 D=P+1:C$# (DI=At 1) 

400 At (A) =""=NEXTASA=0: FORB=1TOC 

410 A=At1ıA$ (A) =B$(B) : NEXTB=FORA=1TOD: A= 
P+l:AFtAO)=E$ (BI NEXTB:NEXTAI 

420 B=0: FORA=FTO2B: BE (A)=""rC$tA)="" 

430 1FA/2=INT (A/2) THENO$ (A/2) =A$ 1A) :SDTO 
450 

440 B=B+1:B$(B)=A${A) 

450 AF(A)=""2NEXTA 

440 FORA=1T014:01$=MID$ {C$ 1A) 
IDS(E8 (A) „2,1 

270 DFiA)=" tr tBOHN LEFTSI HCl" (4 
264" IXDOHN LEFTS} IT {UPZI" 

420 NEXTA 























‚3. I}: C2,=M 


EFTS, SPACES UR2}" 
5009 S5D=14:BD=14 
510 PRINT" {ICLEARY"SSCOLOR4,3,3 

>20 FORA=1TO40: PRINT" {GREEN I„IHRHITEI" 











<191> 
sx117> 
ıB4> 

“137> 
<17> 

<137> 
<234> 


<1777>. 


<15> 
<130> 
<19> 


<126> 


2057 


x148> 


<B> 


<1A2> 
<129> 
<35> 
1957 
<207> 
<221> 
<73äa> 
<B3> 
“253> 
x217> 
35? 


<135> 


<42> 
<x2530> 
<98> 
<138> 


<11> 
<135> 


<249> 
x3B> 


x27> 
s122> 
<2B> 


SAF2> 
<140> 


x132> 
<15377 
<168B> 


<2135> 


<7a> 
<229> 


x175> 
“I&> 
97> 








EXTA:PRINT . 

530 A=29: PRINTTAB(A)" essen U PRENTTA 
BIAF"IRVSON SPACE} ICHISPACEIHABE: " 

540 PRINTTABCAI"IRFSON SPACEFIATSPACEFST 
EINE" = PRINTTAB(A)”" 
550 FORA=1T040: PRINT" {GREEN „CHHITEY" N 
EXTA:PRINT 

250 PRINT [mm m Tr 
m 

570 FERA=1TO1F:PRINT” I TSPACEI” 3: 
INT" i # 

SBO PRINT” LEE ir 
Pr OO RR BR 

590 FRINTTAB (36) " |CSHIFTSPACE? |" 








NEXTA=PR 





600 PRINTF{SHIFTSPACE2ZI — HT ———t—t— tr 


{I 

610 PRINT" CSPAGEZ3"}SFORA=1TOLBEPRINT" IC 
SPACEI" 3 = NEXTASFRINT" ["" 

&20 PRINT" TSPALEZI pda dt nn 
LI: 0 1 1] 

430 PRINT" {SPACE2Y IESPACE} |" 

630 PRINT" CSPACEZ HT — 
TITTTII77 

650 PRINT" {SPAGE2F |"3 
SPACE} ("3 ıNEXTA=SPRINT 
560 PRINT? ISPAGE2F IA En 
41-1 Abend 

579 FÜRA=1TO40: PRINT" TGREEN}ATHHITEF" SEN 
EXTRA: PRINT 

#80 PRINT" TZPRACE2Y" =: FORA=1T07:PRINTCF A 
Y;:NEXTA:PRINT" {DOHN 

5690 PRINT"{SPACEZY" 3 MFORA=1T07:PRINTCH {A 
+7} 2NEXTAZPRINT"{DIHH 

700 DATA49,51,53,55,57,539,61,63,65,67,69 
„71,73,75,77,79,01,93,05,165, 245,243 

710 DATA241 ,239,237,735, 275,231 ,229.227, 
225,223,221,219,217,215,213,211,291 

720 DATA371,373,375,377,379,381,383,385, 
387 ,399,391,393,395,397,3997,401,403 

730 C=14: 8-14 

740 B&="6"s FORASLTO143 C1#=MID$ {C$ (A) „15, 
1) :E28=MID$C$ (A), 15,1) 

750 IFÜLF="&"ANDCIF="A"THENTBO 

7869 IFR#FCAI="5&"THENI1110 

770 NEXTA 

780 IFAA=ZBEORSD=0THENSD=9: BD=3: GDTDO1I80 

790 GOSURF3O: PRINT”CHOHE DOHNZFWELCHERTS 
PACEISTEINTISPACESY" 5 2VOLB: SOLND2,900,5 

800 FÜRA=1TO2 

810 GETA$FS IFAF=""THENBLO 





:FORA=ITO17=PRINT"E 





.B2O AS (AI =AS:PRINTAS "CSPACE}”" 3 SNEXTA:PR 


INT 
830 IFAFCLI="&"ANDAFCLI="#" THENL4&0 

849 IFASELAFTLII<SBORASE (AF CI) ) >SSTHENGO 
SUB? 30: 50T0709 

850 IFASCtAFFZIISAHDORAGE (AR 23 3 >55THENGO 
SUB730:6G0T0780 

850 FORA=1LTO14: EIS=MIDE (EA) „15, 1):62$= 
MIDS (C# 1A) „15,1} 

870 IFAR>OTHENASFO 

BHO IFAFCIIS HT S"ORAFLZICH" AT THENIZO 

BP0 IFAFCOLI=ECIEANDAF 2} =C2$ANDEIF=BFTHEN 
980 

900 IFAFCNI=LCZFANDAF (ZI =E1EANDCZ$=BFTHEN 
1010 

910 NEXTA 

920 GOSUBFFO:GOTO7BO 

730 PRINT"IHOHE DOHNZ SPACEZFY" 

9409 FORA=1TOPFFENEXTA 

750 RETURN 

F&0 REM 

970 AA=AA+LSREADTL,TZ 

780 POKESF9O4 +T1 ,ASCICIF) :POKESSOA4 +72, N 
SC IERF) 

770 T${A}=D$: BE=02H . 

1000 GOTGIOSAO 

1010 REM 
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programme 


<250> 
24775 
<1539> 
<20> 

<215> 
<i17> 


<135> 
<93> 


797 
<147> 


<196> 
<97> 


<119> 
<134> 
<95> 
<194> 
<158> 
<99> 
<13> 


<I2> 


<II> 


s2068> 


x154> 
x154> 
<14B> 
<9> 
<71> 


«163> 
<96> 
<221> 


233 
<g6> 


<116> 
<152> 


“7475 
<219> 
<52> 


<F2> 


<246> 
{1473 
<ao> 
<122> 
<BA> 
<71> 
<B2> 
<6d9> 


<176> 
<151> 
<A6> 

<132> 








tips & tricks 

















1020 AA=AA+L:READTL,T2 <118> 
10350 POKESSO4 +T1,ASC(L2$I:POKESFO4 +72, 
AST iC1S) <211> 
1049 C$ (A) =CH3Rs=61F <1889> 
10509 GOTULOSO «97 > 
1050 5D=-5D-1:LU=0 <23> 
1070 PRINT" {HUHE DIWHNI173" <158> 
1080 PRINT" {SPACE2Y"s : FÜURA=1T07: PRENTCS t 
MW 3:NEXTA=PRINT" IDGHNZ3" <44> 
1090 PRINT" (SPACE23" 3: FORA=1T07:PRINTCH 
A+7)3 2NEXTA: PRINT" CROHNZI" <33> 
1100 60701150 <146> 
1110 AA=AA+1:READTL,TZ 2097> 
1120 POKES3S04 +71,54+129: POKE3304 +T2,54 
+128 <182> 
1130 DE (Ar="n" <i21> 
1140 B#="&6":BD=-BR-1:G60T0780 . «2497 
115060 IFöA=2B0CRBD=OTHENSD=5:BD=0:50T01380 <45> 
1150 GOSUBF30: PRINT"CHOME DOWHNZIICHESPAC 
E}SETZE: (SPAGESI" 3 = SOUNDI „500,5 <249> 
1170 FORA=1TD14:B1$=MID$ (BE (A) „1,1):B2$= 
MIDE<B$1A), 2,1) <76> 
1150 IFB$=B1$THENL250 <197> 
1190 IFR$=B2$THEN1290 «2475 
1200 NEXT: GOSURYFIO <B4> 
1210 PRINT"CHOHE DOHN2YICHLSPACEIKANNTSP 
ACEINICHT {SPAGEISETZEN! " : FORT=BOOTOSOOST 
“ EP-50: SDINDZ2 , T,5:NEXTT . <153> 
1220 FORZ=1T0999: NEXT <214> 
1230 IFUU=1THENLS80 <116> 
1240 Ull=1:G6DT0780 <254> 
1250 AA=RA+1:READTI,T2 <93> 
1260 POKESSO4 +T1,ASC(B1F) #128 :POKESSO4 
+T2,ASC (B2$) +128 <185> 
1270 BE (A)J="##": BRF=BLSH"LSPACEZ}"+B2# <59> 
1280 B$=B2$:608T01330 «133> 
1290 AA=sAA+L:READTL,TZ <134> 
13006 POKE3304 +71 ,ASCIRBZF)+128:POKEF30A 
+T2,ASC (B1#) +128 <704> 
1310 Bt(A)="##"r BB$S=BP$r" {GSPACE2F"+Bi$ <90> 
1370 B$=Bi$ <162> 
13530 PRINTRE$: BD=BD-i 995 
1540 BD$=STR$:{BD) «98> 
1350 IFLEN{BD$I<STHENBDF=" ISPACEY"+BD$:6 
0101350 <84> 
1360 PRINT"CHOHE DOHNZ RYSOHY"SPC(ZIIBDE <79> 
1370 FORZ=LT0999: NEXT:SGOTOFBO <2> 
1390 IFSD>BDTHENPRINT"IHOHE DOHRZIICHISP 
ACEIHABESPACEIGEWONNEN! {SPACHSY" <A7> 
1390 IFSD<BDTHENPRINT"IHOHE DOWNZISIELSPR 
ACEIHABENTSPACEIGERONNEN! {SPACEIF" <i8> 
1400 IFSD=BDTHENPRINT" THONE DOHNZIUNENTS 
CHIEDEN! {SPACEBY" <2O> 
1416 FRINT"NOCHISPACEIEINTSPACEISPIEL?TTE. 
PACE RFSON FLASHONII/NIELASHOFEFE RBRYSOFF>" <108> 
1420 GETAS$: IFA$=""THENL420 <o> 
















































































ENDE DES LISTINGS 


1430 IFA$="J° THENGOSUBL&F0: RLUNSSO <12> 
1440 IFAs="N" THENSYSASS527 <159> 
1450 CLR \ i <75> 
1460 FÜRA=1TO14:C1$=MIDSCHEN „13,11:028 
=MIDEICH (A) „15,13 <i166> 
1470 IFELS=RFORCZF=BFTHENLA4F0 «221 > 
1480 NEXT:G0T01510 <161> 
1490 BOSUBP30: PRINT" {HOME DOHN2ISIEISPAC 
EIKOENNEN{SPACEISETZEN! (SPACE) "s FORT=500 
TDBOOSTEFSO: SOLUNDL „T,S:NEXTT «237> 
1500 FORA-1T0939: NEXT: GOTO7BO <B2> 
1510 IFLUU=1THEN1SBO <141> 
1520 GOTO1150 <55> 
1530 PRINT"{LLEAR BLUEI"3SCOLOR4,3,E «793 
1540 FRINTTAB(13) "SPIELREGELN" <197> 
1550 PRINTTAB(L3I " CHHITEF een TELE 
E}" <219> 
1550 PRINTSPC(IS)"CHHITE DOHN}______ {BLU 
Er" <203> 
1570 PRINT" {RIGHTIWIRTSPACEFSPIELEN{SPAC 
E WHITE RVSONIDOMINDLRWSOFE BLUEF!" <251% 
1580 PRINT" {RIGHT DOWNZIYLEGENTSPACEISIEL 
SPACE? IHRE{SPAGEFSTEINETSPACEHSOLANGE ESP 
ACEFAB, {SPACE>BIS <187> 
1570 PRINT"{RIGHT BOHNISIETSPACEIKEINENE 
SPALEISTEIN{SPACEI MEHR {SPACEIHABENLSPACE 
YÜDERZSPACEIKEI- <11> 
1400 PRINT"{RIGHT DOHHFNENTSPACEISTEINTS 
PACEIMEHR CSPACEFLEBENTSPACEF KOENNEN. {SPA 
CE>SIEGER <154> 
1610 PRINT" {RIGHT DOHNY IST ,{SPACEIWERTSP 
ACEFAMESPACEYENDETSPACEIDIETSPACEIWENIBE 
TEN{SPACEISTEINE <2085> 
1620 PRINT" {RIGHT DOHNYDDER{SPACEIKEINEN 
{SPACE3MEHR SPACEIHAT! <158> 
1530 PRINT" (RIGHT DOHN2IKDENNEN{SPACEISI 
EtSPALEINICHT TSPACE} ABLEGEN, TSPACEIGEBEN 
£SPACE>ISIE <114> 
1840 PRINT" CHHITE RIGHT. DOHNY'## {BLUE S 

‚ PACEIEIN. {SPACE3 HHITE RVSON}6 IELRVSOFF, 

BLUE SPACEIBEGINNT! <70> 
16550 PRINTTAB(28)"CHHITE DOWN _____ {BLU 

Er" <46> 
1660 PRINT" RIGHTIKOENNENTSPACEFWIRTSPAC 
E}BEGINNEN?ISPACEIFCCHHITE RVSON FLASHOK 
FRETURNLELASHOFE RYSOFE, BLUE} >" <180> 
1870 BETAS: IFA$=""THENIA7O c91> 
1680 GOTOS30 «2223 
1670 SCNELR=PRINT"{DOHNL2 RIGHTISIBITTEL 

SPACE RVSON FLASHONIFWÄRTEN{FLASHOFE RVSO 

EE3" RETURN <140> 








Wird dieser kleine Basiclader in 
ein eigenes Programm mit einge- 
bunden, so wird ein radikaler 
List- und Saveschutz erzeugt, den 
man mit einer Autostart-Rourine 
noch verbessern kann. 


Deshalb sollte sich der Basiclader 
gleich am Anfang eines Pro- 
gramms befinden, wodurch nun 

gleich durch das Starten des Pro- 
Eramms eine Maschinensprache- 


Routine im Systemspeicher abge- 
legt und aktiviert wird. Versucht 
man nun das Programm zu listen 
oder abzuspeichern wird auf den 
ersten Anschein nur ein harmlo- 
ser RESET durchgeführt, von 
dem sich eingefleischte Profis 
nicht abschrecken lassen. Diese 
versuchen nun ihre altbewährten 
OLD-Routinen anzuwenden, die 
aber sprichwörtlich nur ein 


Schlag ins Leere erzeugen. Der ge 


samte Basic-Speicher wurde näm- 
lich mit Nullen aufgefüllt und das 
vorhandene Programm ist bis auf 
die Maschinen-Routine des List- 
und Saveschutzes ständig zerstört. 


Es hat auch keinen Sinn vor ei- 
nem List- und Saveversuch die 
List- und Savevektoren zu verän- 
dern, da diese ständig, durch eine 
eingebundene Interrupt- -Routine, 
umgestellt werden. 


Achtung: Die Datas richtig abtip- 
pen, sonst, wird beim Erzeugen 
der Maschinenroutine ein norma- 
ter RESET verursacht. Dieser ist 
jedoch durch POKE4298, 
1 :5Y$34892 leicht wieder aufzu- 
heben. Ist die Maschinenroutine 
einmal erzeugt worden, kann sie 
immer wieder durch $YS1639 ak- 
tiviert werden, Beim Abtippen 
können selbstversiändlich die 
REMARKS weggelassen werden. 





22 Compute mib 


REM 
REM " 
REM " 
REM 
REM " 
REM " 
REM " 
REM " 
REM" 
REM " 
BEM 
REM 


REFUSAI. 


WRITTEN BY 


33 POKE K,A:NEXT K 

35 IF 5<>5455 THEN 5Y5 
37 REM 

38 REM " 

40 REM "EINZUSTELLEN 
42 REM 


LE TE ET ETETETEIET STE TETE STE ET 


LIST % SAVE " 


GUNTER MASSAR " 


[LE TEEN ETETE EIER TE ETETETE IT 


FOR .K=16550 TO 1684: RERD Aı5=5trA 


6SS26: ELBE SYS 1630 


DATAS UM NEUEN IRB-VEKTOR " 


(HEX O6SE-0AAAM) " 


tips & tricks 


44 DATA 170,162,107,160,6,142,20,3,140 
45 DATA 21,3,98,76 

46 REM 

AB REM" NEUE IRR-ROUTINES " 
50 REM "EINSTELLEN VOM NEUEN LIST UND" 
52 REM " SAVE-VEKTOR (HEX G56R-0670} " 
&4 REM 

56 DATA 162,126,160,6,142,6,3,142,48,3 
57 DATA 140,7,3,140,49,3,76,14,206 

58 REM 

&0 REM " NEUE LIST- UND SAVE-ROUTINE * 
62 REM " (HEX 067E-0474) " 
64 REM 

&& DATA 169,0,160,16,170,179,55,190,55 
67 DATA 708,759,176,56, 240,5, 198,56 

63 DATA 76,131,6,76,246,2755 

READY. 

















Das vorliegende Maschinenpro- 
gramm druckt eine Hardeopy des 
C-16 Bildschirmes innerhalb von 
29 Sekunden! 

Das Programm wird mit dem ent- 
sprechenden Basicprogramm ge- 
laden und mit SYS 818 gestartet. 
Zu beachten ist, daß die Maschi- 
nenroutine im  Kassettenpufter 
abgelegt wurde, um den im Gra- 
ficemodus ohnehin nicht sehr gro- 
Ren Speicher des C-i6 zu scho- 
nen, Mit Hilfe des Assemblerli- 


stings sollte ein Verschieben in ei- 
nen anderen Bereich ohne weite- 
res möglich sein. Des weiteren 
muß darauf geachtet werden, daß 
bei Aufruf der Routine, der Kanal 
1 geöffnet ist, da die Datenüber- 
tragung zum Drucker darüber- 
stattfindet. 

Das Programm ändert die Seiten- 
länge des Papiers und führt nach 
jeder Hardcopy ein Formfeed 
aus, um zu vermeiden, daß der 
Ausdruck durch ein irrtümliches 


C-15 LISTING + CHECKSUMMEN {DE V1.0) 


10 


REM IHEEERHE59O<ÖDOTS 
20 REM BILBSCHIRM HARDCBPY x112> 
30 REM COPYRIGHT ANDREAS GLOECKNER <104> 
40 REM AM SONNENSTEIN 45 «78> 
50 REM 5804 HERBECKE <182> 
5O REM EN ENT RHRH57OU CC DGEH 
79 GRAFHICZ,1 <Z08> 
READY. >0352 AY 08 20 
MONITOR >035A DE AP SE 
>03562 DA AF IE 
PC OO SR ACC KR YR SP >O354A BF AT O1 
3 #F00 00 20 FF 00 FB >0372 00 685 EZ 
>037A 1A 20 D2 
PO332 A2 O1 20 C? FF AO 00 AF >0582 FF AI 05 
»>033A 1B 20 D2 FF 69 45 20 D2 »038A 70 D2 FF 
>0342 FF 67 ZA ZOO DE FF AFP IB >03972 AP? 19 85 
»934A 260 DZ FF AF 41 20 DI FF >0537A Ch DE DO 


internes Formfeed des Druckers 
in zwei Teilen erscheint. 

Die eigentliche Druckroutine ist 
als reines Maschinenprogramm 
geschrieben, um sie möglichst 
schnell zu machen; es kann mit 
dem Monitor des C-16 bequem 
eingegeben werden. Das Ladepro- 
gramm in Basic dient lediglich 
dem Aufrufen der Grafic, es 
löscht sich nach Beendigung 
selbst und solte daher direkt nach 
dem Eingeben abgespeichert wer- 


80 GRAÄFHIEO 


den. Das gilt im Prinzip auch für 
das Maschinenprogramm, das 
sich beı Abstürzen durch falsche 
Eingabe unter Umständen selbst 
zerstört. 

Das Programm wurde für den Ci- 
tizen 128 D entwickelt. Es läuft 
aber auf allen Epon-kompatiblen 
Druckern. Da die Drucker-Initia- 
lisierung im ersten Teil des Pro- 
gramms stattfindet, ist eine An- 
passung an andere Druckertypen 
durchaus möglich. 


<142> 


90 PRINT" {HBHEILDAD"+CHRE (34) 4" IHARDKOPY 


SPACEIBIE"+CHRE EIS) H", 


100 PRINT" {DOHNSINEN" 





B,1" <55> 


<32> 


110 POKE1319,19:POKE1320, 13: FOKE1321,13: 


POKE1322,147:POKE2397,4 > 


120 END 
ENDE DES LISTINGS 





D2 FF AF 07 85 3032 
895 D7 AF 10 85 >O3AA 
895 DB AF 58 85 >03B2 
853 EG 85 Ei A? >03BA 
A? 28 85 DE AFP FOSLEZ 
FF AF 2A 20 D2 PO3CA 
20 D2 FF A9 CB >03D2 
A? 00 20 BZ FF >03DA 
DD #7 07 85 DE >OSER 
SC C& DR DS ID >O3EA 


<17B> 
x248> 
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Mit dem vorliegenden Programm 
werden Ihre Programme nach dem 
Laden von Kassette automatisch 


gestartet! 
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tips & tricks / checksummer 


Laden-Starten-dann wird nach 
dem Filenamen des Programms 
gefragt, welches automatisch gela- 
den und gestarter werden soll. 
Nach der Eingabe des Filenamens 
(max. 15 Zeichen), wird dieser 
nach $825E (Bereich für Filena- 
men) geschrieben und die SAVE- 
ROUTINE mit 5Y$1639 ausge- 
führt. In dieser wird der Basic- 
Warmstart-Vektor (Örginaladres- 


se $8712) auf $928A gesetzt (Dies 
ist die Anfangsadresse der zweiten 
Assembler-Routine). Danach 
wird der Bereich von $928A bis 
$d3d4 auf Kassette gespei- 
chert.({Siehe Assembler-Listing) 

Jetzt wird der Originalwert 
(68712) in den Basic-Warmstart- 
Vektor geschrieben. Der Compu- 
ter ist somit wieder im Direktmo- 
dus. Ein Neustart des Programms 


bewirkt, daß weitere Autostart- 
Vorspanne auf Kasseite gespei- 
chert werden können. Nach dem 
Aurtostart-Vorspann wird dann 
das eigentliche Basic-Programm 
abgespeichert. 

Beim Laden des Programms star- 
tet automatisch (durch Anderung 
des Basic-Warmstart-Vektors) die 





geladen. Durch die Ausgabe von 
RUN’und RETURN’starter. das 
Programm.(Siehe _ Assembler- 
Listing) 

Um reine Assembler-Programme 
damit starten zu können, kann 
der Bereich ab $02B% entfallen. 
Stattdessen setzi man dort ein 
’IMP Startadresse des Assembler- 





C-1& LISTING + CHECKSUMMEN 0C 1.03 


1 SCNELR=COLOR4, 1: CGLORO, LTCOLOR1 2,6 <194> 
2 DATAAF,84,50,02,03,N9,02,8D <178> 
3 DATNOS,03,49,01,A2,01,A0,01 <180> 
4 DATAZO,BA,FF,AF,00,n2,5E,AO <117> 
5 DSTA02,20,BD,FF,A9F,B9,85,D8 <62> 
& DATAAI,02,85,D9,49,D8,02,04 <98> 
7 DATAAO,03,20,b8,FF,NF,12,8D <197> 
& DATAO2,03,49,807 ,90,03,03,20 <11> 
7 DATA12,87,60,EA,EA ,EA,EA,ER <173> 
t0 FORT= 1630 TG 1694 <117> 
11 READAFLA=DEC AS) -PÜKET ,ArNEXT <225> 
12 ELR=RESTORE1S <131> 
13 DATAAF,00,8D,15,FF,BD,17,FF <245> 
14. DATAAF,90,20,D2,FF,9,93,20 <5> 
15 DATADZ,FF ,A9,00,42,01,A0,01 <185> 
16 DATAZO,BA,FF ,d7,00,20,BDy4FF . <208> 
17 DATAAF,00,20,D5,FF,A9,12,8R <180> 
18 DATAC2,03,49,87,80,03,03,49 <70> 
17 DATA13,80,27,05,A9,0D,9D,28 <127> 





Assembler-Routine ($228A) und Programmsein. 

. das nachfolgende Programm wird x=xk% 
20 DATAOS,AF,02,85,EF,99,12,8D 2132» 
>21 DATAOO,0C,A9,15,8D,01,0C,A9 2106> 
22 DATAOE,BD,02,00,AD,35,03,85 <AO> 
23 DATA2D,AD,36,03,85,2E,3C,12 <58> 
24 DATAB7 ,00,D00,00,4D,35,03,18 1737 
25 FORT= 450 TO 739 <146> 
2&6 READAFz A=DEC (Af} ; FOKET „Ar NEXT z2240> 
27 PRINT"ICLEAR DOHNSY" : INPUT"FILENAME"; 
Sg .xy> 
28 S=LEN (SF) <B2> 
29 I1F9>4STHEN?F:ELSEPOKE1650,5 <10> 
30 FORI=1T0S: FPOKESAOS+EJASE (MIDE (SE, I,133 2130 
31 NEXT:SYS1630 cb7> 
32 REM SB Z14E> 
SZ REM # AUTOSTART C-115/C-14/PLUS4 #. «i136> 
=4 REM * COPYRIGHT BY D. SCHEEL 1984 * 21457 
35 REM *» JEGLICHE AENDERUNG DES COPY * “315> 
36 REM *+ RIGHTS IST VERBOTEN ! * x148> 
ZT REM <14B> 

ENDE DES LISTINGS 


EEE TE  TEETTEETETETEEEREEEEEEEEEEEIGEREHEEREEEEHESEEEREREEEE 













Checksummer 
Ve 1.0 für Vc-20 


Ebenso wie der C-64-Checksum- 
mer besteht auch das VC-20-Pro- 
gramm aus einer kleinen Maschi- 
nenroutine, Aus Speicherplatz- 
gründen konnte jedoch dieses 
Programm nicht »unter« dem 
ROM abgelegt werden, sondern 


hier mußte der bekannte Kasser- 
tenpuffer herhalten. Dies hat den 
Vorteil, dafs kein Basic-Speicher 
verloren geht. Der Nachteil be- 
steht darin, daß nach der Aktivie- 
rung des Checksummers keine 
Kassettenoperationen durchführ- 
bar sind, da diese den Kassetten- 
puffer benötigen. Um die Kasser- 
tenoperationen wieder zu ermög- 
lichen, muß der Checksummer 
durch den Befehl »SYS 58459%, 


sowie durch das Betätigen der Ta- 
sten STOP/RESTORE, abge- 
schaltet werden. Aktiviert wird 
der Checksummer mit SYS 828. 





REM 
REN 
rer 
REM 
REM 
KEM 


Serial 


nachgelesen werden. 





Die Funktion und Arbeitsweise 
stimmt mit dem C-64-Check- 
summer überein und kann dort 


BEHBIHH 
CHECKSUMMER YE 1.0 
VE 20 VERSION 
DGFYRIGHT FRANKE PRALL 
TRONIC-VERLAG 
BR 





10 PRINT" {CLEAR DOHN SPACEHCHECKSUMMER TS 
PACESVELSPACEFL-OISPACEEF" 

































20 PRINT "{DOSANSCOFYRIGHT{SPACEIFRANKEISR 























ACEIBRALL" 22h: 
ZO FRINT "IBOHNI——-——— ISPALE>OZ.01.BEISPA 
BEI " “132% 
35 FRINT "IDOHN SPACES3TRONIC-VERLAG" AL2E5 
60 DA=G:FORI= 878 TO 1026 <1S8% 
61 READ DA:SU=SU+DA zi63> 
62 FOKE 1,04 64: 
&3 NEXT I 2g3> 
&5 IF SU<X%22919 THEN PRINT" IDOHNIFEHLERT 

SPACE> IN{SPACEIDATA-ZEILEN{SPACEH ":END 145 
70 PRINT"CDIHNF" ER22% 
71 FRINT"AKTIVIERENISPACEI=SVSTSPACTIBTE 

n 295 
72 PRINT"ABSCHALTENISPACEI=SYSTSPABEISOA 

S7" £7A5 
73 FRINT'VOR{SPACEIBETRIEBISEPACEIDERTSPA 
CEIDATA-" <40> 
74 FRINT"SETTE{SPALEIDENTSPACEFCHECKSUMM 

ER" £30> 
75 FRINT"ABSCHALTENTEPACEIUNDISPACEIDIE" (80: 
76 FRINT"TASTEN{TSPACEYSTOF/RESTORE" 2198> 
77 FRINT"BETAETIBENESPACER!" 219% 
80 POKE B16,116:POKE 818,118: FOKE 817,17 

&:FOKE 81F,196: REM SAVE/LOABD AUS 1S1> 


“Der. VC-20-Checksummer komiht frei Haus ünfer‘folgenden 


90 3YS B78=: PRINT" (DOHNICHEEKISPAGEFA.OTIE 
PACE>IST{SPACEFAKTIVISPACEN " 

100 DATA 169,71,141,72,3,169,2,141,3,3,96 
‚„32,103,3,134,122,132 

101 DATA 122,32,115,0,170,2940,2433,165?2,25 
5,134,58,144,.8,134,255,32,121 

102 DATM 197,76,275,199,162,1,134,255,76 
„156,176,166,255,224,1,240,5 

103 DATA 76,95,197,159,0,141,249,7,141,2 
29,2,141,250,3,160,2,2 

104 DATA 177,95,200,113,75,141,250,3,160 
„2,200,177,95,240,44,201,34 j 

105 DATA 208,10,173,248,35,73,1,141,248,3 
„177 ,95,174,238,3,208,4 
10& DATA 201,372,240,728,238,249,3,174,74 
9,3,24,177,95,109,250,3,141 

107 DATA 250, 3,202,208,244,76,138,3,56,3 
2,240,255,142,246,3,140,247 

108. DATA 3,162,0,150,0,24,32,240,755,187 
„91.I2,9,225,169,0,174 

107 DATA 250,3,22,205,221,169,9%,32,9,22 
5,37 ,63,203,32,63,203,172 

110 DATA 247,2,174,246,3,24,32,240,755,1 
62 ,0,174,255,76,111,3,0 

111 DATA 0,.0,0,0,32,0 
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 Eingabe-Hinweise für Commodere 6-16/116-Benutzer! 
Um Ihnen die Eingabe unserer Listings zu erleichtern, 
werden zukünftig all C-16/116-Listings ohre Steuerzei- 


net, ersetzt. Eine Tabeile der Tastenfunktionen finden Sie 


chen abgedruckt. Alle Steuerzeichen werden in unseren | 
'n jedem Tronic-Magazin. 


LISTINGS durch Klartext, welcher die Taste Kennzeich- 


Tastenbezeichnungen für Steuercodes: C-16/116 u. Plus 4 (TRONIC-NORM) 


LEERZEICHEN 


LEERTASTE (GROESSTE TASTE) 


FUNKTIONSTASTE FUNKTIONSTASTE Fl 
FUNKTIONSTASTE FUNKTIONSTASTE F3 
FUNKTIONSTASTE FUNKTIONSTASTE F5 
FUNKTIONSTASTE FUNKTIONSTASTE F7 
FUNKTIONSTASTE FUNKTIONSIASTE F2 
FUNKTIONSTASTE FUNKTIONSTASTE F4 
FUNKTIONSTASTE FUNKTIIONSTASTE F6 
FUNKTIONSTASTE FUNKTIONSTASTE F& 


ORNG 
BEN 
YL.GRN 
DINK 
BL.GRN 
LBLU 
D.BLU 
L.GRN 


ORANGE 
BRAUN 
GELB-GRUN 
ROSA 
Blau-Grün 
Hellblau 
Dunkelblau 
Hellgrün 


Commodere-Taste + I 
Commodore-Taste + 2 
Commodore-Taste - 3 
Commodore-Taste + 4 
Commeodore-Taste + 5 
Commodore-Taste + 6 
Commodore-Taste + 7 
Commodore-Taste + 8 


SCHWARZ 
WEISS 
ROT 
TUERKIS 
PURPUR 
GRUEN 
BLAU 
YELLOW GEL8 
RVSON INVERSE EIN 
RVSOFF INVERSE AUS 
CTREL CONTROL 


CONTROL-TASTE & 1 
CONTROL-TASIE & 2 
CONTROL-TASTE & 3 
CONTROL-TASTE & 4 
CONTROL-TASTE & 3 
CONIEOL-TASTE & 6 
CONTROL-IASTE & 7 
CONTROL-IASTE & & 
CONTROL-ITASTE & 9 
CONTROL-TASTE & 0 
CONTROL-IASTE ZUSAMMEN | plgsh on 


MIT NACHFOLGENDEN ZEICHEN. 
Z.B. CIRLA ENTSPRICHT CTRL & 4) Flash off 


VW und Commodore 64 


TASTE NEBEN RECHTEM SHIFT 

SHIFTTASTE & TASTE NEBEN RECHTEIASHIFT 
SIHIFTTASTE & 2. TASTE GANZ RECHTS OBEN 
SHIFTTASTE & TASTE GANZ RECHTS OBEN 
2. TASTE VON GANZ BECHTS OBEN 

TASTE GANZ RECHTS OBEN 

TASTE GANZ RECHTS UNTEN 

SHIFT-TASTE & TASTE UNTEN RECHTS 
LEERTASTE (GROESSTE TASTE) 
FUNKTIONSTASTE FI 

FUNKTIONSTASTE F3 

FUNKTIONSTASTE F5 

FUNKTIONSTASTE F7 

FUNKTIONSTASTE F2 

FUNKTIONSTASTE F4 

FUNKTIONSTASTE F6 

FUNKTTONSTASTE F& 

CONTAGL-TASTE & 1 

CONTROL-TASTE & 2 

CONTROL-TASTE &3 


Taste neben INST DEL 

3. Taste neben DOWN von rechts oben 
4. Taste von rechts oben 

3. Taste von rechts oben 

Taste über Return zusammen mit Shift 
Taste über Return 

Taste ganz rechts oben 

Contreil-Taste + , 

Contrell-Taste +. 


DOWN 
up 
RIGHT 
LEFF 
CLR 
HOME 
DEL 


Cursor unten 
Cursor hoch 
Cursor rechts 
Cursor links 
Schirm löschen 
Cursor in Ecke 
Delete 

Blinken ein 
Blinken aus 





Tstnbzichungen für Steuerendes [TROAIS-NMUHM 
CGKTROL-TASTE & 4 
CONTROL-TASTE 35 
CONTROL-TASTE & 8 
CONTAOLTASTE&7 
CONTROL-TASTE & 8 
CONTROL-TASTE & 9 
CONTROL-TASTE 80 
COMMÖODORE-TASTE& I 
CCHMÖODORE-TASTE & 2 
COMMODORE-TASTE & 3 
COMMODGRE-TASTE & 4 
COMMODORE-TASTE & 5 
COMMODORE-TASTE & 6 
COMMODORE-TASTE & 7 
COMMODORE-TASTE & 8 
CONTROL-TASTE ZUSAMMEN MIT 
DEM NACHFOLGENDEN ZEICHEN. 
@.B. CTRLA ENTSPRICHT CTAL & Aj 
FLASHOM BUNKENEIR  CCONTROL-TASTE &, 

FLASH OFF BLINKEN AUS CONTROL-TASTE &. 


TUERKIS 
FURPUR 
GRUYJEN 

BLAU 

GELR 
INVERSE EIN 
INVERSE AUS 
ORANGE 
BRAUN. 
HELLAOT 
BDUNKELGRAAU 
MITTELGRAU 
HELLGAUENH 
HELLBLAU 
HELLGRAU 
CONTROL 


CYAN 
PURPLE 
GABEN 
BILE . 
"YELLOW 
AVSON 
AVSOFF 
ORANGE 
BROWN 
LIG.RED 
DGREY 
MGREY 
LIG.GREEN 
LIG.BLUE 
HGAEY 
ETAL 


CURSOR UNTEN 
CURSOR HOCH 
CLEAR SCHIAM 
EINFUEGEN 
CURSOR IN ECKE 
DELETE 

CURSOR RECHTS 
CURSOR LINKS 
LEERZEICHEN 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE - 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
SCHWARZ 

WEISS 

ROT 


Achtung: Einige Listings enthalten das Zeichen "-", dieses Zeichen entspricht dem Pfeil nach links (Taste ganz links oben) 
das Zeichen" » ” steht für den Pfeil nach oben, > 
das Zeichen !\ "steht für das fengl) Pfund-Symbo! (Taste neben Restore) 
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SUPER! — Checksummer für CPC 464 





CHECKSUMMER 1.0 CPC, ist für den 
CPC 464/664 entwickelt worden. 

Wie funktioniert unser Checksummer? 
Tippen Sie zunächst das Programm in Ih- 
ren Computer ein. Bei der Eingabe ist zu 
beachten, 
{Leerzeichen} mit dem Listing überein- 
stimmen. Die REM-Zeilen müssen eben- 
falls mitübernommen werden. 


Sichern Sie das Programm auf KASSETTE 
oder Diskette bevor Sie es starten! 
Nachdem Sie es gespeichert haben, akti- 
vieren Ste das Programm mit „RUN 
65200“. Es erscheint die Meldung: 
CHECKSUMMER AKTIV  FUNK- 
TIONSTASTE 0. Dies bedeutet, wenn Sie 
die Taste 0 des Zehnerblacks betätigen, 
wird der Checksummer aufgerufen. 
Speichern Sie das Programm jJeizt mit dem 
Befehl SAVE "CHECKVI*, A auf Kassette 


ACHTUNG: Einige Listings enthalten das Zeichen ”- 


links (Taste ganz links oben). 


SS200 
sszld 


Sa2zo 


daß auch alle Zwischenräume 


'#++ Teonic CFE Checksummer ##+ 
'#** Autor Frank EBrali 1985 
VERSION 1.0 


oder Diskette ab. Nur so können Sie es spä- 


ter mit Merge an Ihre Programme anhän- . 


gen. 

Wie bemutzt man den Checksummer? 
Wenn Sie ein Programm mit CHECK über- 
prüfen wollen, laden Sie zunächst das zu 
prüfende Programm {wenn Sie's nicht oh- 
nchin schon in Speicher haben), dann ge- 
ben Sie den Befehl MERGE “CHECKVI" 
um das Prüfprogramm anzuhängen. Wich- 
tig ist. daß das zu prüfende Programm kei- 
nc Zeilennunmer besitzt, die größer als 
65199 ist. Jetzt aktivieren Sie den Check- 
summer mit RUN 65200. Nun kann jeder- 
zeit die Prüfung mit der Funktionstaste 0 
aufgerufen werden. Vergleichen Sie je- 
weils die in Heft abgedruckten Prüfsum- 
men mit denen, die Ihr Programm ausgibt. 
Falls Sie einmal einen Fehler feststellen, 
müssen Sie nicht das Programm neu laden, 
sondern können ihn normal berichtigen 








und dann wieder mit der Funktionstaste O 
das Check-Programm starten. Möchten Sie 
den Checksummer löschen, geben Sie ein- 
fach den Befehl DELETE 65200-ein. 
Anmerkung zu Checksummer 1.0 CPC: 
Groß-Kleinschreibung beachten! 
Leerzeichen innerhalb einer Zeile müssen 
dem ORIGINAL-Listing entsprechen! 
Leerzeichen am Ende einer Zeile werden 
ignoriert! 

Umpgewandelte TOOKEN werden automa- 
tisch in den Ursprungswert zurückgesetzt! 
REM-Zeilen müssen eingegeben werden! 


Unser Spezialist Frank Brall 
arbeitet zur Zeit an einem 


Checksummer für plus4. 
Also plus4-Fans achtet auf die 
nächste Compute mit-Ausgabe! 





“, dieses Zeichen entspricht dem Pfeil nach 


- Das Zeichen ” A * steht für den Pfeil nach oben. 
Das Zeichen ” \ “ steht für das (engl.) Pfund-Symbol. (Taste neben Restore). 


FEH 


65370 WERT=FEER I+ADRESS+HA) 
85390 IF WERT 
85390 ZCHECEK= 


=32 THEN 65410 


ZCHETE+WERT+CIF#WERT)I 


Bo3230 KEY 128,"65530 REM TRONIC"+CHRE (1 
I+"run SSR5Ö"+CHRS& (13) 

65240 FRINT=:FRINT"CHECKSUMMER AKTIV 
KTIONSTASTE ©": FRINT:END 

&3250 CLS:FREINT"Tronic-Verlag Checksumme 
r Version 1.0" 

65260 FRINTEFRINT:FRINTEFRINT"TSBSILDSCHL 
RM SD>RUCKER" 

65270 ES=INKEYF:ES=LOWERS (EFF) S IF Et="" T 
HEN 45270 j 

65280 IF E#="h" THEN a=0:6010 685510 
653290 IF E#t="d'" THEN a=8:50T0 857315 
65300 BOTO #5700 

65510 ADRESS=-358: GECHECK=S0O: ELS:FRINT#A,"C 
HECKE Vi: FRUEFSUMMEN: "=FRINT#HAZFPRINTHA,"Z 
EILENNR.: SUMMEN" 

65320 LAENGE=S«FEERK (ADRESSH1)#2S 
DRESS} 

65330 ZNUM= (PEERK GADBRESS+ZI HZSS) +PEEK (ADR 
E55+2) 

65340 IF ZNUM=55200 THEN IF F=0 THEN 654 
80 ELSE FRINT #A, USING "HH": ZNUMIS SF 
RINT#A,"- "a:FRINT#A,"="3:PRINT #9, 
USING “hs ZCHECK: F= dr GBETO 65480 
65350 IF ZNUM=55500 THEN 55510 

85350 ZCHECK=0: FOR 1I=0 TO LAENGE-&A 


Fu 


S>+FEEK (A 


85400 IF ZCEHECE>65535 THEN ZCHECK=ZICHECE 
-55535:507T0 45400 

65410 NEXT I 

65420 IF F=0 THEN ZCHECKI=ZCHECK: ZNUMI=Z 
NUM: ADRESS=ADRESS+LAENGE: F=1:60T0 45320 
65430 F=0: ZNUM2=ZNUM 

65440 PRINT #A „USING "4BHRHh" ; ZNUMI ES PRIN 
T#R,"-"5:FRINT #A,USING "#444", ZNUM2: = 
RINT#A,"5"3:FRINT #A „USING "Hill" s ZCHE 
ECE+ZCHECK1 

65450 GCHECK=SCHECK+ZCHECK+ZCHECHL 

65450 IF GÜEHECK>45535 THEN SCHECK=GCHECK 
-53335:BU0TO 6453450 

65470 ADRESS=ADRESS+LAENGE:GOTO 65320 
65480 FRINT#A, 

en 

65470 FRINT #a,"GESAMTCHECKSUMME: 
K 

65500 SCHECK=O; Ar0: FRINT#A:PRINT#A, "CHEO 
KSUMMER SELESTIEST !":GOTO 45540 

85510 IF GÜEHECK=47078 THEN FRINTHA,"--EN 
DE--":END 

85520 FRINT "FEHLER 
UND 1,100,500 
839520 REM TRONIC 


"GCHEE 


im CHECKSUMMER "2:50 





„Fix und fertig“ ist der Checksummer 1.0 CPC natürlich auch erhältlich: Einfach anfordern unter: 
Bestellnummer: SRV 10K (Kassette) .... 10 DM _SRV10D (Diskette) .... 20 DM 
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Verglichen mit dem C-64 verfügt der C 16/ 
116 zwar bereits über ein sehr starkes BA- 
SIC, aber.auch bei ihm fehlen ein paar 
nützliche Befehle, so z.B. eine Routine 
zum Füllen befiebiger Bildschirmaus- 
schnitte mit einem bestimmten Zeichen 
oder einer bestimmten Farbe. Genau dafür 
ist die FILL-UTILITY gedacht. 
Nach dem Eingeben und Starten des BA- 
SIC-Loaders (das Listing} wird das Ma- 
schinenprogramm zunächst eingelesen. 
Nach kurzer Zeit meldet sich das Loader- 
Programm mit der Frage, ob das reine Ma- 
schinenprogramm  „FILL-UTILITY“ auf 
| Diskette oder auf Kasseite gespeichert 
| werden soll (der Loader w!rd danach nicht 
mehr benötigt und kann gelöscht wer- 
| den). Sie können die Maschinenroutine 
dann, wenn Sie sie brauchen, mit LOAD 
| „FELLETILITYS BT ihzw. ‚LI von Kassatte) 


einladen (die Sekundäradresse darf nicht 
fehlen) und mit POKE 55,0: POKE 56,62 vor 
Überschreiten durch BASIG schützen. Die 
Routine wird gestartet mit dem Befehl 
SYS 16128,X1,Y1,X2,Y2,F[L),2. 

XU/Y1 und X2/Y2 sind dabei die Koordi- 
naten zweier sich diagonal gegenüberlie- 
gender Eckpunkte des rechteckigen Bild- 
schirmausschnittes, der gefüllt werden 
soll (X muß im Bereich von 0 bis 39 liegen, 
Y im Bereich von O bis 24). Der Parameter F 
besimmt, ob der Bildschirmausschnitt 
mit einem Zeichen F = 0) oder einer Farbe {F 
> 8} gefüllt werden soll. Wird mit einer 
Farbe gefüllt, dann muß zusätzlich noch 
die Luminanz £ der Farbe hinter F angege- 
ben werden. Der Parameter Z schließlich 
bestimmt das Zeichen {siehe Bildschirm- 


Codes im Handbuch) bzw. die Farbe {ent- 


sprechend den im Handbuch bei COLOR 





tips & trich 


angegebenen Farbwerten), mit dem bzw. | 
mit der der gewählte Bildschirmbereich 
gefüllt werden soll. Addiert man zu einem | 
Farbwert noch 128 dazum so erscheinen | 
die im betreffenden Bildschirmbereich 
befindlichen Zeichen blinkend {FLASH- | 
Modus). 

Zwei Beispiele: 

SYS 16128,1,138,23,0,1 füllt bis 
auf einen 1 Zeichen breiten Rah- 
men an allen vier Seiten den gan- I 
zen Bildschirm mit dem Buchsta- 
ben !l. 
SYS 16128,1,1,38,23,1,3,6+128 | 
füllt den eben mit dem Buchsta- | 
ben A gefüllten Bildschirmbe- 
reich mit der Farbe grün und läßt 
alle in diesem Bereich befindii- ; 
chen Zeichen blinkend erschei- | 
nen. 

Noch eine wichtige Anmerkung zum BASIC-Loa- 
der: Die srsien drei REM -Zeiten dürfen keines- 
Tells fehlen, da sie den Filenamen für die SAVE- 
Routine enthalten! 


ET 





























5-18 LISTINGS + CHEDESUMMEN (OD YL,0) 
155 IFAs="D’THENFORE18294 ,9; G0T0170 
DOREEN REHEREHURUHCH ER RECHERERIK 1a. IFAF="E" THENFOFELETSA, 1: 5OTOLTO 
; HEM 8 * 145 GOTGI45 
zo REM» FILL-UTILITY ® 170 SYS1SZTE: END 
3 REM ® * 17: 
20 REM # EINGDSBEFORN:S * ı1B0 : 
An REM * * 105 z 
Ö REH #& SYSLS1ER,XL,Y1,X2,Y2,Fi,LI,Z * Ind n 
REM + * 175 DATAIZ,216,157,224,40,144,2,75,78,15 
> BEM x* SCHUETZEN VOR UEBERSCHREIBEN * „ıi=4,2153,22,716, 137,204 ,25,176,244 
az REM #& BURCH BASIC: * 122 200 DATA124,217,32,218,107,224,40,176,23 
Gb REM * * IIA =,179,218, 42,216, 137,224,25,176, 226 Di Een 
85 REM # FÜHE 55,0 2: FOKE 5a,s8 * 17275 zu DATA1I4,219,165,217,24,229,717,18,12 
7O REN * * 1875 ‚165,217,72,169,219,132,217,104,132 SAGE 
75 REM * 1985 BY DANIEL DURSTEWITZ * “1857 zı10 DATA217,76,29,62, 132,217, 165, 218424, 
SD REM * REICHENBERGER STRLIE * 2144) =297,216,16,13,165,216,72,165,218 X7BE 
BIS REM * 44650 NORDHORN * "1. 215 DATAI33,218,104,135,218,768,61,52, 172 
au BEM # TEL. GSF21/ 79200 # LACH ar: 197,150,12,224,0,740 Siods 
9Z5 REM « = "IF Fa $} DATAIS,S2, 210, 137,224,8,176,164, 138, 
FF REMOTE HR EHEN RER ÄRA ?10> 10, 10,10,10,170,160,8,134,771 ,I5& 25: 
109 163% Far DATA217,165,216,132,217,202,AR,9,74, 
il0 ; iaB 105,40,144,248, 730,217, 208,244, 133 1777 
115 : "172: =309 DATA218,32,21&,157,178,5, 221,166, 219 
120 x - 178: ‚232,164, 218,200,145,2168,126,15, 251 zul 
125 FORT=1&128T016225: RERDA:FOKET  „ArıF=fr 235 DATA7Z2,163,216,24,105,40,144,2,230,2 
A:NEXT SER 17,125,7168,104,702, 16,232, 74,220 “173 
1304 IFF=27239F6070145 106! 245 DATAIFF ıB2! 
1335 FRINT"IDOHNFFEHLERISPACE! INISPACEIDE 245: 47 
NISRACEFDATASTIEPSCEFRITTELSPACEFLERERPR \ ZI = 52 
UEFEN" =21 250 REM SAVE-ROUTINE Pi 
120 FRINT"SIESSPALEIDTEISPACEHFEILENG zrA Zu: . 
CE31F5-27STEP ACE3 NOCHTSPACHFEINMAL' "SEND 195 Pe 
145 FRINT"TIDORAFSOLL{SPACEFDASTSPACEIFRO =70 DATAIE2,1,180,1,272,47,244,169,, 12,162 











GRAMMNSPALEFAUFISPACE RESONIDERFSOFF: ICH 
EFTEISPACEIODER" 

150 INFUT"AUFTISPACE AVSONIKIRFEOFEIASSET 
TETBPACETARGEBFEICHERTISPACE} WERDEN" AH 
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ell2> 


‚95,160,16,32,12 21 169,0, 133,218 597% 
275 DATA169,67,173,217,169,216, 162, 165,1 
60,63,76, 149,244 1935 


ENDE DES LISTINGS 
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Im letzten Teil unseres Kurses haben wir bereits begonnen, 
die Belegung des C64 Speicher’s im Zusammenhang mit dem 
Prozessor-Port zu betrachten. Ich möchte dies nun fortset- 


zen, und anhand einiger Skizzen erläutern. 











OOo 





OOODOR 

















LORAM=1 HJIRAM=2 CHAREN=1EXROM=?GAME=1PO- 
KE 15 - 

$0E02-SCFFF Gesamte Bereich auf RAM geschaltet 
$d230-$D7FF Videocontroller und Soundchip 

$D822-$DBFF Farbram 

$DC22-SDFFF V/O-Bausteine CIA 1/2 

$EZEI-$FFFF Betriebssystem 


In dieser Betriebsart wird fast der gesamte Speicher des C16 auf RAM 
















$0800=2048 
$0400=1024 
$0000 






LORAM= 2 HIRAM=9 CHAREN=? EXROM=1GAME=1PO- 
KE 1,9 
$0080-SFFFF Gesamter Bereich wird auf RAM geschaltet 


Dies ist sicherlich der stärkste POKE, Denn hier wird nicht nur das 


Computbe miß 
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IOODEOSOODAIADAOIOOD 








umgeschaltet, Für Basic Programme oder Befehlserweiterungen kann 
dieser Modus nicht verwendet werden, da die Basic- sowie die ROM- 
routinen nicht mehr zugänglich sind. Einige Programme erreichen al- 
lerdings durch geschickte Umschaltung der Betriebsarten, eine Art 
Bank-Switching. Auf diese Weise lassen sich ROM und RAM quasi 
gleichzeitig nutzen. Ansonsten ist diese Betriebsart sehr gut zum betrei- 
ben eines zweiten Prozessors geeignet. Dieser kann beispielweise, vom 
Modulport aus, direkt auf das RAM sowie die VO Bausteine des C64 


zugreifen. 


SFFFF=65535 
$E000=57344 
‚$E000=57344 

. D000=532483 . 

$C000=48152 


$AO00=40960 


II = lesen 
—_ = schreiben 


Basie- und das System-ROM ausgeblendet, sondern zusätzlich auch die 
W/O Bausteine. Dadurch wird praktisch der gesamte Adressraum des 
Microprozessors 6518 durch RAM unterlegt. Dies ist übrigens die ein- 
zige Betriebsart, welche auch erlaubt, den RAM-Speicher unter dem 
Zeichengenerator sowie den /O Bausteinen zu nutzen. 
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| $0800=2048 
30400 = 1024 
80000 






LORAM=1 IIRAM=1 CHAREN=1 EXRObi=Z GAME-J 
PORE 1,7 (Externes Signal) 

32929-$7FFF RAM Speicher für Basicprogramme uns Systemvek- 
toren 

$8200-$BFFF Externes Modul, beispielsweise Programmiersprache 
$CEZO-SCFFF Freier Speicherbereich für MC-Programme 
$D222-$D7FF Videocontroller und Soundchip 

$D896-$DBFF Farbram 

$DC3E-$DFFF V/O Bausteine CIA 1/2 

SEBSS-SEFFF Betriebssystem 


Durch das Einstecken einer Befehlserweiterung oder einer anderen 
Programmiersprache kommt diese Konfiguration zustande. Der 
16KByıe Bereich von $8224 bis $BFFE wird nun vom Modul belegt. 
Der darunter liegende RAM Bereich läßt sich nicht mehr ansprechen. 


xx 


LORAM=d HIRAM=1 CHAREN=1 EXROM=d GAME=f 
POKE 1,6 (Externes Signal) 

$2223-59PFFF RAM Bereich 

$AdgZ-$BFTF 8kByte ROM Einschub 

$C2@8-SCEFF Freier Speicherbereich für MC-Programme 
$D222-$D7FF Videocontroller und Soundchip 

$D892-$DBFF Farbram 

$DC22-$DFFF V/O Bausteine CIA 1/2 

$ES2G-SEFFF Betriebssystem 


Dies ist die typische Spielekonfiguration, wenn ein Modul (z.B. Soccer) 


eingesteckt ist. 
rrx 


LORAM=1 HIRAM=1 CHAREN=1EXROM=8 GAME=1PO- 
KE 1,7 (Externes Signal) 

$0082-$37FFF RAM Bereich für Basic Programme 

$8222-$9FFF ROM Modul, beispielsweise Basic-Erweiterung 
$Ad22-$BFFF Basicinterpreter i 

$COGE-SCHFE Freier Speicherbereich für MC-Programme 
$D292-SD7FF Videcontroller und Soundchip 


__ programme 


SFFFF=65535 
' $E0C00=57344 
$E000=57344 
$0000=53248 

$6000=48152 


s$ACO0=40I650 


$D8IE-SDEFF Farbram 
$DOgS-IDEFE V/O Bausteine CIA 1/2 
SEBSG-SFFFF Betrichssystern 


‚Arıch diese Konfiguration kommt durch das Einstecken eines Modules 
zustande. Diesmal belegt das Modul nur 8 kByte, von $8£8-$9EFF. In 
der Regel handelt es sich hier um eine Basic-Erweiterung oder um ein 
ähnliches Programm. Durch eine bestimmte Code-Sequenz am Anfan 
des Moduls, wird dieses automatisch nach dem Einschalten des Rech- 
ner aktiviert. Somit stehen dem Anwender sofort die Funktionen der 
Erweiterung zur Verfügung, 

Wir haben nun alle möglichen Systemkonfigurationen des C64 ken- : 
nengelernt. Wir haben an der Anzahl sowie an dem Aufbau der 
Speicher-Organisation erkannt wie flexibel der C64 eigentlich aufge- 
baut ist. Um jedoch alle diese Fähigkeiten, welche besonders bei der 
Grafik-Programmierung nützlich sind, ausnutzen zu können, bedarf es 


“sehr guter Kenntnisse der Maschinensprache. Wir wollen uns deshalb 


vorerst nur mit der Einschalt-Konfiguration beschäftigen. 


xxx 


Arbeitsweise von Beiriebssystem und Basicinterpreter 


Nach dem Einschalten des Rechner’s oder nach einem Reset springt der 
Rechner grundsätzlich an die Adresse, welche in den Speicherstellen 
$FFFC angegeben ist. Das bedeutet, daß die Adresse im Betriebssystem 
kontrolliert wird. Bei dem C64 steht in diesen beiden Bytes die Adresse 
$FCE2. Ab dieser Adresse steht. die sogenannte RESET-Routine im Be- 
triebssystem. Diese Routine ist dafür verantwortlich, daß alle Vekto- 
ren, Register und I/O Bausteine in den richtigen Zustand gebracht wer- 
den. Ohne diese Routine wäre der C64 praktisch tot, das heifft man 
könnte, wenn man von der Kontrollampe absieht, nicht fesıstellen, ob 
der Rechner ein- oder ausgeschaltet ist. Nach dem nun Vektoren, /O 
Bausteine durch diese Routine intialisiert wurden, wird der sogenannte 
Basic-Interpreter aufgerufen. Dieser übernimmt nun, in Zusammenar- 
beit mit dem Betriebssystems, die gesamte Steuerung und Tastacurab- 
frage. Das bedeutet,daß nach der Ausgabe der Eischaltmeldung alle Ein- 
gaben direkt zum Basic-Interpreser gelangen. Dieser erlaubt beispiels- 
weise das Eingeben, Löschen oder Fditieren von Basic-Zeilen. Auch die 
direkte Eingabe von Basic-Befehlen wird hier abgearbeitet. 
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Was nutzt uns der Basic-Interpreter für Maschinensprachepro- 
gramme ? 


Diese Frage ist relativ einfach zu beantworten. Der Basic-Interpreter so- 
wie das Betriebssystem sind aus zahlreichen kleinen und größeren Un- 
terprogrammen zusammengesetzt. Diese Unterprogramme lassen sich 
oft auch sinnvoll von eigenen Entwicklungen aus nutzen. Beispielswei- 
se gibt es Routinen zur Ausgabe einer Zahl oder einer Meldung auf dem 
Bildschirm. Nutzt man kräftig alle Routinen dieser beiden ROM’s, so 
kann man sein MC-Programm stark verkürzen. Nachteil dieser Merho- 
de ist jedoch, daß Programme durch die Verwendung von ROM- 
Routinen nur sehr schwer auf andere Rechner zu übertragen sind. Da 
jedoch viele Programme ohnehin stark auf den C64 zugeschnitten sind, 
läßt sich dieser Nachteil jedoch in Kauf nehmen. Wir werden im Ver- 
laufe unseres Kurses alle interessanten ROM-Routinen kennenlernen, 
Neben dieser Möglichkeit, die ROM’s auszunutzen, gibt es noch eine 
weitere interessante Möglichkeit. Für viele Funktionen des Betriebssy- 
stems oder des Basic-Interpreters, werden freie Speicherstellen im 
RAM, sprich. Variablen, gebraucht. Eine Eigenheit des C64 ist es, diese 
durch zahlreiche Adressierungsarten vorwiegend in der Zero-Page ab- 
zulegen. Diese lassen sich somit vom Basic- sowie auch von Maschinen- 
sprache direkt beeinflussen. Besonders interresant ist dies, wenn man 
kleinere Befehlserweiterungen oder ähnliches in den Basic-Interpreter 
einbinden möchten. Um die sogenannte ZERO-PAGE, sowie die dar- 
über liegenden Vektoren, nutzen zu können, beginnen wir hier mit der 
Beschreibung der einzelnen Adressen sowie deren Belegung und Funk- 
tion, Im Anschluß daran werden wir mit einem kurzen Programm de- 
monstrieren, wie sich dies Adressen ausnutzen lassen, 


* * * 


Die Belegung der C64 Zero-Page 
Adresse HEX Dezimal Belegung 





$13 19 aktives VO-Gerät 

$14-$15 22-21 Integer-Adresse, Zeilennummer 
$16 23 Zeiger auf Stringstack 

517-518 23-24 Zeiger auf zuletzt verwendeten String 
519-321 25-33 Stringstack 

$22-$25 3437 Universal Zeiger 

$26-$2A 38-42 Register für Funktionsauswertung 
$2B-$2C 43-44 Zeiger auf Basic-Programmstart 
$2D-$2E 45-46 Zeiger auf Start der Variablen 
$2F-$3d 47-48 Zeiger auf Start der Arrays 
$31-$832 4958 Zeiger auf Einde der Arrays 
$33-834 51-52 Zeiger auf Start der Strings 
335-536 53-54 Hilfszeiger 

$37-$38 5556 Zeiger auf Basic-RAM Ende 
9339-53 A 57-58 Basic-Zeile welche abgearbeitet wird 
$3B-33C 596d vorige Basic-Zeile 

$5D-$3E 61-62 Zeiger auf nächten Basic-Befehl 
$3P-$4Q 63-64 Data-Zeile welche abgefragt wird 
541-$42 65-66 Zeiger auf nächste Data-Zahl 
343-544 67-568 Zeiger auf Herkunft der Eingabe 
$45-546 69278 Variablenname 

547-548 71-72  Variablenadresse 

349-4 A 73-74 Variablenzeiger für FOR/NEXT 
$aB-S4C 75-76 Zwischenspeicher für Programmzeiger 
34D 77 Maske für Vergleichsoperationen 
$4E-$4F 78-79 Zeiger für FN-Funktion 

$50-$53 82-83  Seringdescriptor 

$54 84 Konstante $4C für JMP-Befehl 
955-556 85-86 Sprungvektor für Funktionen 
$57-$5B 87-91 Arithmetik Akku 3 

$5C-$68 92-36  Arithimetik Akku 4 

$61-$65 97-181  Fließkommaakku 1, FAC 
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$2d 2 Darenrichtungsregister für Prozessorport 

$d1 1 Prozessorregister 

$02 2 ungenutzt 

323.504 34 Vektor zur Umwandlung Fleßkomma 
nach Fest 

325-526 5-6 Vektor zur Umwandlung Fest nach Fließ- 
komma 

397 7 Suchzeichen 

388 8 Flochkomma-Flag 

+39 9 Spalte bei TAB-Befehl 

5dA 12 Flag d=Load 1=Verify 

$2B 11 Zeiger in Eingabepuffer 

ssC 12 Flag für DIM-Befehl 

$dD 13 . Typeflag $20=numerisch, $FF=String 

$eE 14 Flag $82=Integer, $#Qd=Real 

ser 15 Hochkomma-klag bei List 

$19 16 Flag für FN 

$11 17 Flag für INPUT $@2, GET $4@, READ 
598 

$12 18 Vorzeichen bei ATN 


An dieser Stelle unterbrechen wir die Beschreibung der Zero-Page. Im 
nächsten Teil setzen wir diese fort, und zeigen an einem Beispiel deren 
Anwendung. Frank Brall 


Verwendete Literatur: 
6542 Microcomputer-Programmierung, Peter Heuer, Hofacker 
Verlag 


64 Intern, Angershausen, Becker, Englisch, Gerits, Data Becker 
Buch 


"C64 Programmieren in Maschinensprache, Winfried Kasscera, 


Frank Kassera, Markt & Technik 
Profihandbuch, H.L. Schneider, Werner Eberl, Markt und Technik 
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In der nächsten Ausgabe: 


Ein weiterer Kurs! 


Interruptprogrammierung des C-64 


Computbe mip 
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Checksummer C 
Version 1.0 
für Commodore 64 


Checksummer v1.0 ist ein Prüfsummen- 
Programm, das die Eingabe von Pro- 
gramm-Listings zum wahren Vergnügen 
macht. Tippfehler werden schon während 
des Eingebens der einzelnen Programm- 
zeilen erkannt. Dieses System, zusammen 
mit einem neuen Druckverfahren, gewähr- 
leisten, daß unsere Listings zu 99,9% feh- 
lerfrei abgedruckt werden. 


Arbeitsweise und Aufbau unseres Check- 
SUMNIETS: 


Unser Checksummer besteht aus einem 


Basic-Loader abgedruckt ist. 

Tippen Sie diesen Loader ein und spei- 
chern Hın auf Kasseite oder Diskette ab: 
Sie können Ihn zukünftig immer wieder 
benutzen. Der Start erfolgt durch den Be- 
tchl „RUN“, Nach kurzer Zeit meldet sich 
der Rechner mit der Meldung „JTRONIC 
Der Checksummer istnun aktiv. Nun kann 
man ein beliebiges Trante-L.isting cinge- 
ben. Nachdemeine Zeile mit RETURN ab- 
geschlossen wird, erscheint links oben auf 
dem Schirm eine Prülzahl, Vergleichen Sie 
diese mit der Zahl, welche im Helft hinter 
diese Zeile abgedruckt ist. Stinnmen die 
Zahlen überein, so ist die Zeile richtig ein- 
gegeben; ansonsten muß sich noch ein 
Fehler in Ihre Eingabe eingeschlichen ha- 
ben, und Sie müssen die Zeile korrigieren. 


263 LISTINGS MIT CHECKSUMMEN <E v1.00 


REM we" TRENIC CHECKSUMMER are 
REM VERSION & 1.0 BEI FRANK BRALL 


FOR 1=832 TB 1008: READ A:5=5+A 
FOKE I,A:NEXT I: IF 54315397 THEN PRINT 
"FEHLERTSPACEI INISPACEIDATA-ZEILENISPACE 


SIISPACEI 10-193": STOP 


5 SYS 832:6=0:FOR 1=58454 TD 58503:READ 


A:5=5+A 


6 FÜKE I,ArNEXTF I:1F 5<>518917 THEN FRINT 
"FEHLERISPÄACEI INTSPACEIDATA=-ZEILENTSPACE 


FIISPACEIL2I9-36I":565T0F 


7 S=0: FOR 1=48979 TD 47005:READ A:5=5+A 
8 FPOKE 1,ArNEXT I:IF S<>788R9 THEN PRINT" 
FEHLER{SFACEIINTSPACESDATA-ZEILENTSPACEI 


!<SPACEYI (AL-AFIVSSTOR 


7 FRINT"t{DOBNZIAKTIVIERENISPACEF: TSPACEI 
FOKEISPACEIL „)SSTSPACEIBIAUSSCHALTEN: SPA 


LEIFOKEISPACEI „S5":NEW 


10 DATA169,0,133,254,162,1,189,137,3,133 
‚255, 160,0, 177,254,145,254,13& 

11 DATAZOR, 249, 230,255,1645,255,221,139,2 
‚208,238,202,16,230,169,76,141,49 

12 DATAS6S,169,228,1941,50,165,169,53,133 
„1,169,141,153,254,162,3,134,255 

1S BATA160,0,177,254,240,7,32,202, 241,20 


0,76,120,3,169,2,141,37,708B 


14 DATA9S,160,724,172,0,147,17,32,32,35, 


35,35,35,32,84,82,77,78B 


Auf diese Weise können Sie das gesamte 
Listing schnell und fehlerfrei eingeben. 

Interressant ist auch, daß bei der Eingabe 
von Zeilen die üblichen Abkürzungen be- 


null werden können, ohne die Checksum- 
me zu verändern. Leerzeichen “ußerhalb 
von Anführungszeichen werden ‚ignoriert, 
da diese auf die Ausführung der einzelnen 
Befehle keinen Einfluß haben. Sie können 
Ihr Programm auch starten, denn der 
Checksummer und Ihr Programm beein- 
flussen sich nicht gegenseitig, Wollen Sie 
den Checksummer abschalten, so geben 
Sie einfach „POKE 1,55" ein oder betätigen 
die Tasten-Kombination „RUNSTOP und 
RESTORE“. Aktivieren können Sie den 
Checksummer jederzeit {auch nach RE- 
SET} mit „POKE 1,53“, 


15 DATA7S,67,45,86,69,82,76,65,71,32,67, 


72,69,67,75,83,83,77 
16 DATA77,69,82,32,35,35,35,35,139,13,13 


,32,32,32,32,32,32,32 - 
17 DATA32,32,32,32,32,86,69,82,83,73,79, 


78,32,67,32,49 46,38 
1B DATA13,1%2,32,32,32,32,32,32,40,67,41, 


72,70 ,92,65,79,75,32 


53,41,13,0 


17 DATAAG ,82,65476476,32,40,47,49,46,56, 


29 DATA169,0,141,107,191,141,108,191,141 
,109,191,160,2,24,177,95,200,113 


30 DATA9S,141,109,191,160,3,200,177,95,2 


40,44,201,34,208,10,173,107,191 
31 DATA73,1,141,107,191,177,95,178,107,1 
91,200,4,201,32,240,2208,238,108 


32 DATA191,174,108,191,24,177,95,109,109 


„191,141,107,191,202,208,244,768,120 
33 DATA228,56,76,183,228,72,32,201,255,1 


70,104,144,1,128,968,32,240,255 


54 DATA142,105, 


472,140,106,171,162,0,160 


‚0,24,32,240,255,169,91,32,12 


35 DATA225,169,0,174,109,191,32,205, 109, 
169,93,76,83,191,173,33,208,145 

36 DATA243,96,105,2,164,145,200,208,4,19 
7,1581,209,247,9& 

46 DATAZ2,12,225,32,6%,171,32,63, 


171,172 


,106,191,174,105,191,24,32,240 


x<158> 


47 DATA255,75,128,154,24,0,0,5,200 
ENDE DES LISTINGS 


Checksummer für 
COMMODORE 64 


Wer den Checksummer nicht eingeben möchte, kann diesen auch unter der 
folgenden Bestellnummer beziehen: 


Bestell-Nr. CV10K/Kassette 10 DM, Bestell-Nr. CV10D/ Diskette 15 DM 
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checksummer 


kleinem Maschinenprogramnı, welches als ' 


31 








Heft 5/85 

Commodore 

Bestell-Nr. GGM CK 3/1 16,- DM 
Bastell-Nr. COM CD i/1 20,- DM 


Senso (&-16/118), Jungle (6-64), Auto- 
start (6-64), Sequenzer (6-64), Sufo 
[6-54], Biympia (VG-20), Flowers (WG-20) 


Schneider 

Bestell-Nr. GOM SH 1/1 16,- DM 
Eobra, Krümi, Haunted Castle, Q-Bert, 
REM-CALLS 


Heft 9/85 

Commodore . 

Bestell-Nr. COM CK 5/1 16,- DM 
Bestell-Nr. COM GD 5/1 20,- DM 


Supermoni 64 (C-64), Galaxy (6-64), At- 
Hantis (C-64), $haolin {C-16}, Hospital 


(YG-20), Flipper-Balt (VG-20), Alien 
(E-20) 

Schneider 

Besteki-Nr. COM SK 5/1 16,- EM 
Bestell-Nr. COM SD 5/1 39,- DM 


Buell, Crash, Citylander, Kiondike, REM- 
Killer 


Heft 1/86 

Commodore 

Bestell-Nr. COM CK 1/2 15,- DM 
Bestell-Nr. EGM CD 1/2 20,- DM 


Ehecksunmer .1.0 G, Astronaut Battle 
(C-64}, Hueycobra {6-16/116), Hardcopy- 
rottine {G-16/116), Helmut und die Zeit- 
maschine (6-16/116), Locos (VC-20), 
Reck’me (VC-20), Charly der Raketen- 
mann (VC-20), Interrupt-Programmie- 
rurıg (VE-20) 


Schneider 
Bestell-Nr. COM SK 1/2 16,- DM 
Bestell-Nr. COM SD 1/2 39,- DM 


Detender, Boulder Dash, Basic-Befehle 
auf den Funktionstasten 


Heft 5/86 

Commodore 

Bestell-Nr. COM CK 5/2 16,- DM 
Besteil-Ar. GOM CD 5/2 20,- DM 


Space-Devil (6-64, Disk-Eddi (6-64), 
ABG-Legen {V-20), 3-D-Labyrinih (VG- 
20}, Iron (YG-20), Invaders af Space (C- 
16/116), Suhmarine (G-1E/116}, Balken- 
diayramm (6-16/116) 


Schneider 
Besteli-Ar. COM SK 5/2 16,- DM 
Bestell-Nr. GOM SD 5/2 39,- DM 


Startauk, Grafik-Designer, Gross-Aefe- 
rence, liext 


software-service 














Heft 6/85 


Commodore 
Bestell-Nr. GOM CK 2/1 
Bestell-Nr. GOM CD 2/1 20,- DM 
KHampfman {G-64), Softlanding (2-64), 
Karate (G-64), Einbrecher (VG-26), Tan- 
ker (W6-20), Jupiter Rescue (VG-20), 
$05-Schiffbruch (6-16) 


Schneider 





Bestell-Nr. COM SK 2/1 16,- DM 
Tastaturbelegung, Gave-Runner, Old- 
Shurehand 

Heft 10/85 

Cormmodore 

Bestell-Nr. GOM GK 6/1 16,- DM 
Bsstell-Hr. GEM CD 6/1 20,- DM 


The Gastie 01 Dr. Greep (VC-20), Catchgo 
(VE-20}, Sub-Zone {VC-20), The Maze 
Graze Game (C-64), Suner-Ireakaut 
{&-64), Planet of Death (6-64), Funk- 


tionstasten-Programmierung (6-64), 
tar Race I(C-I6/E8), Key-Helper 
(C-i6/116) 
Schneider 
Bestell-Nr. GOM SK 6/1 15,- DM 
Besteli-Nr. COM SB 6/1 39,- DM 


Labyrinth, Gateh, Mini Car Race, Inka So- 
gra, Single Disk Backup 


Heft 2/86 

Commodore 

Besiell-Nr. COM ECK 2/2 16,- DM 
Bestell-Nr. COM CD 2/2 20,- DM 


Roba {b-64), Basic-Befehlserweiterung 
(6-64), Raketenstart (C-16/116), Drei- 
kampf (G-16/116}, Readline (C-16/118}, 
Defender (VE-20}, Formel 3 (V6-20}, Me- 
mory-Display (VG-20) 


Schneider 
Bestell-Nr. COM SK 2/2 15,- DM 
Besiell-Nr. CÜM Sti 2/2 39,- DM 


Alien 2601, Biamond Hunter, Directory 


Keft 6/86 

Commodore 

Bestell-Nr. COM CK 6/2 15,- DM 
Bestell-Nr. GOM CI 6/2 20,- DM 


Music-Master (6-64, The littte Puck 
goes home (G-54}, ENIY (G-54}, invers- 
Utility (©-F6/116), Checksummer {C-18/ 
118), Alfenwurf (6»16/316), Data-Maker 
{vG-2), Karate-Kid (UG-20), Q-Bert {VC- 
20) 


Schneider 

Bssteil-Rr. COM SK 6/2 15,- DM 
Bestell-Nr. COM SD 6/2 39,- DM 
Eisksori, Mini-Forth, Starcommand 





-fehiserweiterung 





Heft 7/85 


Tommerore 
Bestell-Nr. COM CK 3/1 16,- DM 
Bestell-Nr. COM ED 3/1 28,- DM 


Sea-Antak (C-64), Sare-Age (6-64), Mic- 
ro-Touls (6-64), Disky 1.0 (6-64), Stunt- 
man (VG-20), Senp (WG-20), Balloan- 
Shoot {VE-20), Farhenfroh {C-16) 


Schneider 


Bestelt-Kr. GBM SK 3/1 16,- DM 
Bestell-Kr. COM SD 3/1 39,- DM 
Secret Valley, Smileymat, 

$uper-File 

Heft 11/85 

Commudare 

Bestell-Kr. GDM CK 7/1 16,- BM 
Bestell-Nr. COM CD 7/1 20,- DM 


Interpreter Music-Language {6-63}, Fi- 
relegien 6-64], Funktionstastenpro- 
grammierung (G-64), Schalztaucher 
(6-16), Dangerous Planet (U6-20}, Ges- 
Zaxxan (VG-20) 


Schneider 
Bestell-Nr. COM SK 7/1 16,- DM 
Bestell-Nr. GOM SD 7/1 39,- DM 


Etis, Alien-Hunter, Demon-Attack, Ja- 
tenverwaltung, Discshow 


Heft 3/86 

Commodore 

Bestetl-Nr. COM CK 3/2 16,- DM 
Bestell-Nr. GOM CD 3/2 20,- DM 
Minar-‚Jumper t6-16/118), Hero 


(&-15/116), Data-Maker (E-16/t16), Be- 
(G-64), Starchip 
16-55}, Mini-Gar-Räce (6-54), Text- 
Seroller {6-54 Text-Editer (C-64}, 
Ghecksummear (VG-20), Robin a1 Ra- 
venwreck (VC-20), Mini-Karate {VC-20), 
Autonumber-Routine (YC-20} 


Schneider 

Bestell-Nr. COM SK 3/2 16,- DM 
Bestell-Nr. COM SD 3/2 39,- DM 
Smily, Serepi, Dieverrückte Fabrik, Dise- 
Hein 


Heft 7/86 

Commodore 

Bestell-Kr. COM CK 7/2 16,- DIA 
Bestell-Rr. COM ED 7/2 20,- DM 


UG-20-Sound-Demo, Mad Aush (76-28), 
Shost-Hell {VG-25, Readrunner (0-64), 
Basir Extension (0-64), Meieoriten- 
storm {b-&4), Chesksummer 6-16/118, 
Airweif (&-16/116], Bresk-Out [E-16/H16} 


Schneider 
Bestell-Nr. COM SH 7/2 16,- DM 
Bestell-Nr. GDM SD 7/2 39,- DM 


Poker, Gave-Walker, Biskettenarchiv 











Heft 8/85 


Commodore 
Bestell-Nr, E0M CH 4/1 16,- DM 
Bestell-Nr. ECM CO 4/1 2D,- DM 


Drucker-List (/6-20), Flowers I} (VG-20), 
Dina Eggs (VG-20), Piano (C-16/136), 
Tank-Duall (664), Vampir (665), Hemory 
(6-84), Raster Register, Interrept (C-64}, 


Schneider - 


Bestell-Nr. COM SK 4/t t6,- DM 
Bestell-Nr. COM SD 4/t 39,- BM 
Gopier Patrol, Suchrätset, 

Tower 

Heft 12/85 

tommodore 

Bestell-Nr. COM CK 8/# 15,- DM 
Bestell-är. COM CD 8/1 20,- DM 


freggies Nightmare (VC-20), Wächter 
des heiligen Tempels (V&-20), Jumping 
Jos (G-18/116}, Gity-Runner (6-18/116], 
Mission Rescue (6-64), Turbo-Jet 
(©-63), Print-Generator (C-64}, Datage- 
rerator (C-64} 


Schneider 
Bestell-Nr. COM SK 8/1 16,- DM 
Bestell-Kr. EOM SD 8/1 39,- DM 


GCkesksummer 10 CP, Two Cherry 
Chaps, Erwin im Zauberschloä, Druck- 
steuerung NLD 401 


Haft 4/85 

Commodore 

Bestell-Nr. COM CK 4/2 16,- DM 
Bestell-Nr. GOM CD 4/2 20,- DM 


Skuttle {VG-20), Josef in den Höhlen 
(VE-28), Merge-Rautine [(VE-20), Shegt it 
(VG-20}, Fast Trast (6-64), Data-Fext 64 
(6-54), Gary, der schnelle Kabeiverieger 
{G-16/H16), SDI (G-16/116), Besp-Reufine 
(2-16/116) 


Schneider 
Bestell-Nr. COM SK 4/2 16,- DM 
Bestell-Nr. COM SD 4/2 39,- DM 


Space-Reseue, Texteditur, Starfight, 


Programm-Hetter 


Heft 8/86 

Commsdere 

Bestell-Nr. GOM CK 8/2 16,- DM 
Bestell-Nr. COM CD 8/2 20,- DM 


Death Desert (C-64), 3-D-Lahyrinth [E- 
69), Klick (6-64), Hahakof (VE-20%, Dme- 
Attack (IG-20), Sound (VG-20), Plati- 
neniayout (6-16/116), Balloon Shot (16/ 
116), Hardcopy {6-16/116) 


Schneider 
Besteii-Nr. COM SK 82 - 16,- DM 
Bestell-Nr. EDM SD 8/2 33,- DM 








PET nn I EEE 
Heft 9/36; 





Commodore 
Bastell-Nt. COM CK WZ 16,— DM 
Beslell-Nr. OB CD 92 20,- DM 


Mäcnpalroi {YC20}, Faleons Lander (VE 20), Erogger (VE 20), 
The Gamas (0.64), Cave gt Bath dC 64) Sprites and Sound mit 
der: UHH-System (654), Diggy (© 16/116), Tapadiractory 
46187135), Reverzt (& 16/116) 


Schneider 

Esstei-Nr. COM SK 92 

Bestefl-Nr. COM SD 87 

Creepy, ärieteschreiben, Frutiy Man, Mirror Battle 


16,- IM 
39,-— DM 





ETETERTUEET 


Commodere 
Beztell-Nr. COM CK 10/2 
Bestell-Nr. COM UD 10/2 


16,— DM 
20,- DM 
Schneider 


Bestell-Nr. SK 1042 
Bestell-Nr. SD 10/2 


16,- DM 
39,— DM 





Compute miß 


Alle hier aufgeführten Kassetten und 
Disketten können jederzeit nachbe- 
stelit werden, 

Bei den Zeitschriften sind die Ausga- 
ben 5,6, 7,886) und5, 8, 10, 12 
(85) noch vorhanden. 
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software-service_ 


Programm Preis Bestell-Nr. 7 Pra Prei Bestell-Nr. 
Kass./Disk. er Heu in unserer aramın Kass /Disk. BT 


Software-Bestelliste der ‚Schneider 


Muiti-Key/S-Tool 64/ € © Autorennen 11,--/ - 183/85 
I,--/ US 4/85 


Interrupt-Programme 16,--/21,-- UL 2/85 Universal-Datei WI 








Spritehilte/Diskloader/ Computerschrift/ 
Directory . 21,-/-  U631/85 Programm Preis Bestell-Nr. | Symbol-Swap 10,--/ - US 5/85 
Tape-Directory/Asmon/ - Kass./Disk. Keyboard Toolkit/ 
Data-Gererator 15, /21,-- 16 3.2/85 Fantasy-Cauntry/ Farbdesodierung 11,--/ - U5 61/85 
Fast Load 10,--/ - UE 4/84 Horror-Gastle 16,--/23,-- 023 Aladin g,--/ - US 6.2/85 
Diskmonitor/Zeichensatz 20,--/ - UG 5/85 Moon Fighter/Goldrausch 18,--/23,-- 033 Painter/Box-Befehi 14,--/24,=- U5 7/85 
Heassemhbler/ Zeichendesigner 14-— - U0 8/85 Maschinensprache- 
Haskengenerator 19,--/20,-- UG 5/85 OLD-Rautine-Merge- Monitor/Disk-Hilfe 15,--/25,-- US 8/85 
Dei 64/Treihernrogramm Asstine/Change Type 14,--/19-- UOT/8G Basis, Maschinen-Kit 12,--/22,-- 058/85 
für 1526/MPS 802 Frogger/Humor 18,--/23-- 043 Hackup/Directary/ 

- Decelevator 14,--/19,--  UC 7/85 Ellipse/Disk 27,-- US 10/85 
Supertapedirectory/ f Bata-Generatar/ 
Henew/Kontrollabftrage 15,--/ - VG 8/85 Grafik Toatkit/ 
Video-Utilities, . ASGH List (Turbo Pascal 15,--/25,-- US 1/86 
Multi-Basie 73, Bildeditor 17,--/23,-- U6 0/85 Fallschirmspringer af - NG/SA-3 
Better Basic/Autonumber/ Programm Preis Bestell-Nr. | Geisterschioß 9--/ - HC/ER-4 
Hardcony/Terminal- Kass./Disk. Zeichendesigner 12,50/ - HC/SK-3 
programm 17,--/23,-- 1616/85 . Mini bar Hace/ 
Speicher-Oszilloskon/ Interceptor 3 D 17,50/26,58 HL/SR-5 
Mahro-Assemhler/ Secret Agent 12,50/24,50 HC/SR-1-4 















Change Type 49,--/54,-- UGVBE Space Invaders/Miri Pac/ 

Reacter/Goncentration/ | Bestellschein /Blücky 8,50/15-- VB1 Oni’s „Sound“ 17,90/27,50 KE/SR-2-4 
Datenbank 17,50/23,50 HG/C-1 Multigraph/All Aammer 11,--/15,58 471 Samson und die Kisten/ 

Warlords/ Zykio/Meteorit 11,--/1950  v81 Bie vertlixte 15 17,50/27,56 HG/SR-3-4 

Saverns 0f Death 14,50/19,50 HE/C-2 Barten/Schloß Gruselstein 14.--/19,50 91 “| Moon-Landing/Panzer 17,50/26,50 HL/SA-4-4 

Alien-Destroyer/ Fressman/Outlaw 14,--/18,50 V 101 Super-Miner 14,—/24,-- 5R432 

Buell 24,50/29,50 HG/C-3 Prost/Bufiale Bill 14,--/1950 7171 GPG-Bert 14,--/24,-- 5R52 

Ücean Game/Tennis 17,50/23,50 HC/G-4 Jay Man/Powerpack 15,--/19,50 422 Gonan’s Castie 15,50/25,50 SR 62 

The Caves 17,58/23,50 HE/E-5 Der rasende Malocher/ Sniders Mace 16,59/26,50 SR 72 

Gardener . 17,50/23,50 HEL/C-6 Frankie goes to Pharae 14,--/1950 V32 Schneider Panik/ 

Lfo/Skatehoard Sam 24,50/29,50 HE/C-1-4 Matron/übst 14.--/1950 142 Killershin 18,50/28,50 SR 13 

Olympic Biathlon/ Race On/Layy 14.-- ‚1950 Y52 Horror-Caves/ 

Struggle far Life 24,50/29,50 HE/C-2-4 | Nürkurg 3D/Düsi 14.--/1950 162 Midnight 18,50/28,50 SR 23 

Pole Position/Save Breaker/Expulsion 14,-—-/19,50 72 Cosmis-Lastte/ 

your teeth/Push 24,50/29,50 HE/L-3-4 Brückenbau/Jango 16.--/2150 Vıa Spider-Mace/ 

Explorer 2/ Inka-Schatz/Miner " Traumland 16,50/28,50 SR 33 
Programmname? 24,50/29,50 HG/G-4-4 der Fassadenstreicher 16,--/21,50 W232 Mühle 12,50/24,50 HG/SR-5-4 

Mauern/ Widerstand 8--/15,-- 541 Boohy In Action/ " ——— — 
pace-Comets/ _ 

Erdspalte/Sprite-Data 15,--/28.50 651 Zee 

Autostart/Bestellschein/ Star-Wars/Punktefresser 14,50/ -  HC/V-2 

Roadnainier 16,50/23,60 [HE 3 | Catch the Fish/ 

Hardany/Space-Fighter/ Mister Jump 1450/ -  HE/N-3 

Data-Generatar 1550730,50 C7 Shost's Eggs/For Hunt 14,50/ -  HE/N-4 

Manster-Attack/Black- Gallestor/Break Out 145% -  HE/AN-5 

Painter/Epson-Dracker 16,50/23,50 681 g-Bert/Sahrage Crew 15.507 - HC/U-ä 

Frojekt/Datenhatk 16,--/23,50 691 Bog Fight/Schwitzbad 16,5W/ -  HB/N-1-4 

Spiders/The Basic 16,39/23,50 E101 Earth Rescue 14507 - HEA-2-4 

High Noon/Skeet/ Tank 14507 -  NC-H-9-4 

ärafik-Designer 1750/2350 612} Terra 2/Pac-Ball 16,50/21,50  HE/N-4-4 , . 

Painter/Star-Baddle/ Sprites/Space-Battie 13,--/19,-- UV 2/85 Der Tronic-Verlag bietet Spitzensoft- 

Editor 17,50/25,50 622 Gratik-Painter w-/- Wu | " 

Wüstenrally/set-Pac/ VIC-Clock a, - ws | ware für ‚Jedermann. 

Arack Mbare Castle  17,5023,50 632 Doceloratar 9-7 - was |} Überzeugen Sie sich von unseren An- 
Brieftaube/Gadelon 19,50/24,50 642 Joypaint 12.--/ = UV 8/85 5 “ - 

Ritter Erik/ - Disassembler, ’ |. geboten und bestellen Sie noch heute. 

Brand Fin Speitehiife  19,50/24,50 € 52 Old-Pragramme 10-7 - 985 Alle Bestellungen werden innerhalb 
irekird/High Music 24,59/2950 C6% Directory/Farb-JRO 1.,—/ - UY 10/85 

Moonsweener/Scotli 24,5W/298,50 672 Men Rescue/Ecunomy 1 A504 - HEIN-S-A AUF 

Tran/Mercurious 24,50/29,50 £ 13 — ra 

interzeptor-Basel/ j 1 Woche 

Schotter 24,50/29,50 C23 Anleitungen. zu unseren Pro- 

as ag grammen erhalten Sie aus un- nach Eingang bearbeitet. 

Die Festung/ seren Heften. Bei ausverkauf- Telefonische Bestellungen unter der 

Tanksimulation 24,50/29,50 HG/C-5-4 ten Heften erhalten Sie zum Rufnummer 

Fight Night/Monsterjagtl/ . u " . 

Collassus Mühle 24,50/29,59 663 Heftpreis Fotokopien der Spiel- 
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programme 





HORSE GAMES 


Verwetten Sie nicht Ihren ganzen, 


Einsatz! Der C-64 ist wirklich 
stark! 


"”Porse Games”, das ist die Pfer- 
derennbahn auf Ihrem Compu- 
termonitor! Sie messen Ihre Disk- 


jockeybegabung mit dem Com- 
puter. Wenn Sie das Titelbild se- 
hen, gelangen Sie mit dem Feu- 
erknopf in das erste Bild. Hier 
werden Ihre Fähigkeiten als 
Springreiter getestet. Ihre Aufga- 
be isi es, den Parcour zu meistern, 
ohne die Hindernisse zu berüh- 
ren. Dazu lenken Sie das Pferd 





statt mit den Zügeln nun mit dem 
Joystick, wobei ein Druck nach 
rechts Antraben und ein Druck 
nach links Stehenbleiben bedeu- 
tet. Joystick nach oben bewirkt 
einen Sprung, 


Haben Sie alle 14 Hindernisse 
mehr oder weniger gut bewältigt, 


Compute mi 





erscheint die Anzeige mit der 
Auswertung. 


Nach erneuten Drücken des Feu- 
erknopfes beginnt die zweite Dis- 
ziplin, das Galopp-Reiten. Hier- 
bei treten Sie gegen den Compu- 
ter an. Das Computerpferd 
erscheint immer in der Bild- 


















mitte; Ihr Pferd bewegt sich also 
immer in Relation zu diesem, 


Obwohl die Steuerung dieser Dis- 
ziplin sehr einfach ist, sind doch 
überlegte Strategien erforderlich. 
Joystick nach rechts bedeured 
schneller, nach links langsamer. 
Am unteren Bildrand werden 3 
Werte angezeigt. Die zurückge- 
legte Strecke, die Kraftreserven 
und die abgelaufene Zeit. Die 
Kraftreserven verändern sich, je 
nachdem ob Sie schneller oder 
langsamer reiten. Sinkt die Zahl 
unter 50, so werden Sie immer 
langsamer und müssen erst wie- 
der Kräfte sammeln. Zu guter 
letzt legt das Computerpferd auf 
den lerzren 300 Metern noch ei- 
nen Endspurt ein - da müssen Sie 
schon genügend Kraftreserven ha- 
ben, um da mithalten zu können. 
Nach Beendigung des Laufes wird 
Ihre Zeit angezeigt und Sie kön- 
nen nach Knopfdruck wieder neu 
beginnen, 


Eingabehinweise: 


Zunächst müssen die Programm- 
teile HORSE1 bis HORSES ein- 
zeln abgetippt und gespeichert 
werden. 


Danach gibt man NEW: POKE 
56,89 eın und startet die Program- 
me HORSEI bis HORSES5 nach- 
einander. Wenn ein Programm 
fertig ist, so wird dies angezeigt 
und Sie müssen das nächste laden 
und starten. Nachdem alle Pro- 
gramme einmal durchgelaufen 
sind, geben Sie folgende Zeile ein: 
POKES56,160: POKE44,94: PO- 
KE 46,156: SAVE’?HORSE DA- 
TA”,8,1 (RETURN) 

Dadurch wird das Programm 
"HORSE DATA” erzeugt, das 
später vom "Hauptprogramm 
nachgeladen wird. Von nun an 
brauchen Sie nur noch das Pro- 
gramm HORSE GAMES zu la- 
den und zu starten, da dieses das 
Maschinenprogramm nachlädt. 
Bei Datasettenbetrieb sind narür- 
lich die Deviceadressen entspre- 
chend zu ändern. 
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Listing T 


G&4 LISTING MIT CHECKSUMMEN (2 V1.00 





i Al=20000:; FORI=1000TN1095: READAF, FI: C=Ö 
: FORN=1 TOLENLAFISTERZ 

= A=ASC(MIDFSAF,N, 13 3-40: BSAST (MIDE (Ar,N 
+1,13) -48: A=A+r 78 {A592 B=B+7R B>9) 

> FOKEAD, 16#AHB:Ü=SC+FEEK (AD) rAD=AD+1 

4 NEXTIFRINTIS "ISPACER" s 2 IFCX FFSTHENPRIN 
T"ERROR"SSTOF 

5 FRINT"OK"SNEXT 

& FRINT"FERTIG":END 

1000 DATA 7EARF7FSDORDCAFOLSDLADUAFOTSSOZR 
ARCOOZEDLZDOATIRRDI1DOATFSSEDN1A4OT, 3357 
1001 DATA A77I9SD15GES840AD19DORADIFDOZFHL 
FOGS4C5HR7S4ECFS7ELSHPIOOAAFOFTTSOR, 2941 
1002 DATA ASOZBDCSOZID21IDOEDCAGFEDTODORH 
BROZSDZSBOSDEFOZFOOACYOLFOOZACHB, 23875 
1093 DATA 76468276AD00DC29OBFOOAADDOHCZF 
DA4FOOERACAFFSATOLSDDBOFTAGAFFTSAFOO, 3258 
1054 DATA SDDBE0ZADDSOTHNONFACDEFSADEFOZFO 
©S4CCC7SEOOOFOOSAGCCTSCEDSOZCEDS, 4102 
31005 DATA OZADDOGZFOOSACDE7SEOHLFOOZACDE 
YSCEDSOZEAEOGSFOOGENGOGFOGBEOUOLFO, 3798 
1005 DATA G7EOGZFOAFACE47SLSADDFOTCHDOEN 
OAAFD7EDBFO2200R7AAFD7EDIANOACEI, 7945 
1007 DATA 76AEBZOZAOZSBDOOAGPFEFEZBDOOG1 
7F7F7CZEDOOA29YY1FESEDIOSZFFAFCSED, 3995 


1008 DATA 00654996FCZBDOOSSFFFFLICABTDODI 


EEDZISSÖCCEDSOZADDAUTCFDOROGAAFDT, 4486 
1069 DATA 8DD302205578A9D7ED1SDOACEITARE 
DIOZAGZBEDOOSEFFZFELEDIGATFFIETEI, I808 
1010 DATA BDODASFFOFGLEDOCOATIFRTCIENONGA 
7717C1PFEFCOCABSBSDODBEENZO?SHEON?T, 4387 
1011 DATA FOOZSSGE478CEDAUZLCEDEAHFADDAILCH 
DOEOOAAYD7IDDSGZZOATTERAFDFEDLEDO, 43504 
1012 DATA 4CEI7AREDTOPADZBEBDOGSEIFFZFELBD 





ETF 


z1äl: 
El7a: 





LEREF 


we 


es: 
“1505 


745 


programme 





- DATA DIEBOOSAFFLFELFFERDOCASSDODBEE 
BIO2804E3B73EGOZFOITALE47SADFÜOZ, 4185 
1014 DATA DOFIAPD2EDIADOEASSÖTEDEOOZADL? 
DOBSAFOOSSAATSSANGBSA4OADEFOZFOO7CH, 411 
1013 DATA O1FO1E464977204C7720E97720F8977 
ZOBE7E201A78207537920747920D079AC, 2956 
i0ö1& DATA 497720378026407770E077205D7C24 
Fi17C20097710206847D20BC7D2Z0OEA7DZOOE, 7858 
1017 DATA 7EZUOZSTERO4ATEZOAFFEACZLERADDF 
DEDOOLASÖOEEDAGZADDAGZTTOLFOLSCHO2, 3399 
1019 DATA FOZSE9OGZFIF4EPO4FOA2ZCHOSFOSHAF 
SGRDDAOZACDE7FAZIABEFBETEBBEFIET , 4327 
1017 DATA EBSEFACHEBIEFRCFAOATISBEFICHER 
SEFFESEBBETACHEBBEFECTSOATITBEFO,, 5639 
1520 DATA ÜSESBEFICSERSEFAUTERBSEFBOTEOAD 
ZUSEFSCZEBBEFICHEBSEFACSESBEFROS,, 5784 
1221 DATA SOAZZ49EFSCHEBBEFFOSEBBEFACTERB 
SEFBLZEONZFRBEFSCSEBBEFFÜIEBSEFA, 5561 
1022 DATA C3ESBEFEOFSOADDEOPDOOGTSOASA22F 
GEFOGSAPTCOBDDFOZSOAFOLEDEFOZSOAD, 7851 
10253 DATA DEOZF0065A70 LBSDDROZAHAFOGEDDROF 
ZIÖBEFRCIEBBEFFÜSEBBEFÄAUCTESSEFB, 4638 
1024 DATA E£350ADDCO2PDIGLSOADDDOFFOOFECIH1 
FOIDEROZFOZERFÖZFOFFALTTFBAZZUBE, 37658 
1022 DATA FOCIESBEFILTEBTEFATIEBBEFBOFAO 
AZZONEFBCIEBBEFSDIEBBEFACSESSEFRB, 5052 
1026 DATA EI60AZI4BEFBCTFESBSEFSCHEBBEFACS 
ERHEFROEISOAZTBSEFSCTEBBEFFOZEBBE, 56538 
1027 DATA FACSESBEFBESAOAZSCHEFECSESBEFF 
C3EBSEFACTEBBEFECZSAOADDEOZDO14AD, 5517 
iO28 DATA OODE2FO1FOOL1SOAFCLSDDCHZSDDROT 
ZUF37EAG2OUT7AIA22F707FOOLSOEEDN, 3505 
1927 DATA OZADDDIZEFOSFONISOAFOOSDDLOTED 
DDGZSOADDDOZEFOZFOGSCPOZBODEAOLE, 3377 
1020 DATA OLDOLEOZDSLCEOSBOCEO?DOSOADOLDO 
ErREFOSISGEEGIDOEEOFDOFEGSDOEEOT, 4165 
1031 DATA DOSOAEDTOZCGLSFOFSCOTBFOFTICOSE 
FOZDEG4BFOZSCOSTFOISCHSZFOZILOTE, 4232 
1032 DATA FOLDCOYSFO1ICHAFFOLSCORBEFOLICO 
CEFOCDLCODZFOOPLGEFFOUSCOFEFOOLEO, 4875 
1033 DATA APGLSDDEOTSOCACDZOZCOLHFOZSCHTF 
FOZ1CO2ZDFO2ZDEO4CFOZPCOSAFOTSCOSA, 3877 
1934 DATA FO21C097CFO1DCOIEFOLFLOABFOLSCH 
BDFÖLICOELFOGDCODZFOOICHEAFOOSCOH, 4887 
1035 DATA FLFOGLAOAFA22F0FFOOLSOEEEOOZAD 
DEOZFOOSAICHGEDDENZACAFÜULBDDFÜTRE, 3748 
1035 DATA EOOZAFOLFDEIOZAORDBDFOZDIGLSUEE 
DFOZADDFOZCFLFFOZLAFAORDOADAAFAL, 3762 
1037 DATA 8DO4D4AF1CEDO2D4EDOSDAAFAORDOS 
D4AFEBBDOEDAAFOFEDGOIDAAFOOSDDFOR,, 3673 
1058 DATA AF408064D4:0ADDBCOZFOOLSOADDRO2 
DOGISOASAPZIOFFOGFILCFEFFAFCLBDOL, 3517 
1057 DATA D4APGOBSDGBDAAFGOSDOEDA4AFGLRDOR 
DAAFSOBDOBSDANSAZEIOSZFOFFOOLGOAF, 3807 
1049 DATA G18DOCD4AF7008DODD4AFBOSDORDAAYF 
S1800BDAATSOSDOBDASCAZOCAOOGEAEA, 3720 
1041 DATA ERCBDOFRESDÖFSA2LÖBEFSCTESBERSF 
E3ESBEFACSESBEFECSZOFTFEIOZTFFAI, 5467 
1042 DATA 148DDZ0OZAFOASDDEGZAYOORDEFOZAG 
OFFFDFOZBBDOFAATFOFBDIRDA42OSOTSAD, 3535 
1643 DATA DIG2CIOSFOOZAU647AFSAZFERF209D 
FFBFIDFRCOPDFAPLFDFFD7FDFFDEIDFS, 5137 
1044 DATA DIFDECDAFDECE2ZCADVESAFOZEDZIDDO 


AFOGBDE1UZAZOGAFLOSSFRAFTDESFARO, 48097 
10945 DATA OABFEFO2FLFASSDOFIBALBSSFAZCFAR 


EOO7ACOFFIFAACETFTARIBEFORAGGFFIFA, 4243 
1045 DATA BBEATAZIFAIBASFASFLABSSFAAFOASS 
FRSSFEBDE1OZFOODAOOABFZEOFFIFABB, 4327 
1047 DATA DÖOFBACFOGFAAGOHSBIA1SZILFABBDOFE 
IBASFASPLABSFAAFOOASFBBESFBEBEOJE, 4625 
1048 DATA DOROAZOGAFATEDISCTEDITCIEDELOZ 
DOSF4C3O7BADIFCZLESFOARDFTCIEIAB, 4214 
1649 DATA BOO34C307BEEFETZZEBADITEIEFOABD 


Gompute mit 


programme 


FFG2EBEOGEDOD7AZOBRD4AOFFDBBCZEN, 4332 
1959 DATA DOFFADOODEZFLODOFFAZFBAFOFFDFF 
D79DFFDEFDFSDIIDECDACADOEFEEEFGZ, 3354 
1051 DATA SBAZFBAF2ZOFDFFEFFIDFFCOFDFZCITID 
ECCFLADOERAFOOBDEROSATFFEDASDOGD, 5215 
1052 DATA ICDGAFAFSDAETZBDAFCFAIASENFEGS 
AFASSDIDEFAFALEDIELSEDIFCSEDFELS, 05h 
1053 DATA AFALEDBTCSUDBSCHBDRFESEDBACIAD 
GBECSCHAODOFFAFOOEDNADABDORR49D12, aRo2 
1954 DATA D4799204BDRACSFDALOSCADOFTFAFOO 
8D21DOASFOASFRSDFFBFFDFSCOFDFSC1, 4737 
1055 DATA SDECLZLCADOFLADOODOCDOSDÖORGILEE 
6502AD63031869RBFOOF4C1D7LEEO207, 4068 
1055 DATA ADEZOZEFORIDSFOSACLDFLLCESIOSRD 
&3031BCFAIFOOFATAID7CCEA203AD5303, 3013 
1057 DATA 16 FOA306FOFAZOIEDESHTFDFECIEA 
DOF7ADE?OZBDAZLIADSSOZBDA4CIADSA , SR22 
10959 DATA OZIDALCLADSSOTBDATULAZFEAFOLTD 
FFDFSDFFDEFOFSDFTDECDACADOFIADID, 5155 
"1059 DATA BC2910008940217AADSEOTDOÖOLSCER 


OEFOOZALHIEABFOABDEROSAFOORDIEDA, 3740. 
1997 DATA A7449D05D48DGCD4ED1TDAAFAFBDOR 
DA4BDODDABHI1ADAAFCHEDOPDABSDOFNARD, 4007 
1098 DATA 10D4N202BE03D4ERBEGAD4ESSELIDA 
A9F40GD04D4BDOPDAED12DAAFA18DO4DA, 7854 
1089 DATA SDOBD43E12D4AFEFOTEOBOFOOFATOE 
SOATOOREEYOIBDSTSESDOID4BDBESERD, 2857 
1070 DATA OND4BDAUGFSDORDAEDTFAFEDO7DAED 
A4AFORDOFDABDLAFÜBDVOEDAEFEEFOFAGSI, 3993 
1091 DATA BASOCEEADZADEROZFOOLSOAFORRADEA 
GEAF465DOSDASDOCDAEDITDAAFABEDOG, 5894 
1092 DATA D48DODD4BB1AD4AFAORDOZD4ADOTDA 
EDIHDAATOPBEOZDIERBEOADAEHBELIDA, 408% 
1097. DATA AF4OEDGAD4SDOEDA4EDLZD4AFALEDOA 
D4300EDABD 1 DABEEBOSEOSFFÜOOSACHB, F853 
1094 DATA SOAPOOSEEBOTRDOZSCHDOID4EDSLAD 
SDNOH4BDLOSCHDORDAEDIF&DEROFTDAED, 3798 
1095 DATA FTEADIDSFDABBINDADSHOEDSERERÜBAN 
Edel, 2370 
ENDE DES LISTINGS 












SCOZADSCOELEFOIFOLBLFOZFUZELFOFFO, 3527 LAG 
1050 DATA F4ICHOSFDAZEINSFISOAFTGEDIERTAE 
DEFERTIABERCCIESBEFDOSEBBEFEOTER, 4569 21425 
1063 DATA SEFFOSGOSFIBBEFÜDTERSEFDOSESSE 

527 1257 
1022 DATE ERSEFEOTESSEFFORGORZE ME 
SEFDGSERSEFEDSEBSSEFFOSSURAE ABErT, "17% 
1083 DATA CIEBREFDOSERSEFEDTEBSERF 
SSBEFLOTEBBEFRTEERSEFEGSERGEFF 3 DEERS 





10G4 DATA SOADBSDOEDIOLAGASAZZETE 














SDEROSSOAFOIEDSROFEHARNODEZFOSTO, 2979 San iR 

1063 DATA VBADUODEZFOIFORSEOANIEDIDEFFATD ; FORN=1TOLEN ABI STERS ZeA3r 
GDEESEOACESEOTLEFFLSCESFETAN =870 F | 2 AeAstimiIneias,N,13)-48: B=AR0MIDEIAE,N 

ios6& DATA DOEEOABNERÖADGEFOTDOTESEUNGT +1,19) -4Be A=A+7% (A>9) sB=Er7# (RT) i1s1r 
GODSCFOARGOEEESEOSAHRTZFIOFFOOLED, ee 3 FOKERD, Lörd+Bs C=D+FEER AD) zADSADFI "<i7o> 
1067 DATa EEIFLZAUTEOODÜGEGTPOLEA4HIODENS 4 NEXT: FRINTI;"{SRAGER"G: IFCSFRSTHENFRIN 
TOEESEUTEESEUOFGSOÄDNSEUELFZIRONSLT, 40109 zi0]> | TTERHOR"SSTOR 





1069 DATA 1990275039 1ESTGTEOZERAFDSADAFOS 5 FRINT"OE"SNEXT 
LFABFOOLSOAFALBDAFTZEEAECHADAEUE, 24571 <ASs & FRENT"FERTIG":END 

i059 DATA LFARFIG1SONFARRDAELTAOAFLERDSE 1002 DErfA IIOCHTCHLNGHNIGOÜGDIIGNGGONGOTENGA 
GZPEAFCZADAFÜSLIAOFOOLSORFARBDAÄF, 4553 söl> GOOD IOIIÖHGIIITIOIIOOZOHGNDFOG, 38 WER 








1070 DATA CILEAECTADAECTTFAGFOGOLAGRFAIBD 
BECZSORDAELETFAGFTOULSOTFATFOOZAD, 4683 
1071 DATA DOFDEFAIFOOEACDHATDEESFOSGOCESF 
OFCESFOZAODESFOFTESFOSCESFOÜSCESF , 7683 
107? DATA OESOADSFOSCHOTBAGL ADAPOOSDAFOF 
BDOGODOLFOAENDISÖLEOGODSTEDZEDOLEN4, 3150 
1072 DATA DOCEOADOAOASAZZFOFFOOLSOADGCDY 
CIOABOOLSNCEOODGCEOEDOCEONDGCEOS, 3757 
1074 DATA DOSOATGHLCEIFFLEEDFBEICHALFOOTAC 
427EDEFALZEDIECEAFOASDFELSCAHDOES, 4720 
1075 DATA GOATO4EEHACTEERACHBDBATCSEFABRO 
OZADGSFERERSCHEDRBACHEFOASDRATIEN, 5073 
1074 DATA DOEBAOABICCHEFALFOGLSOADPDEICH 
A4FOOLEOASATZFOFFOULGOADIODIHFOA, 4187 
1077 DATA BOGLSOLENODOLESTDOLEOA4DGOLEOEDEO 
&CUSDOODDEFFCBDSODDAYUREDLSDGBD?S, 7814 
1078 DATA DOAFCOIDEEO2AFOFEDZ7DOSDZENGAD 
2GDO8D2ADGEDZEDÜRDZEBOSHZEDORDEN, 29738 
1073 DATA DOSPFELOAFOSEDZFDOATOOSDZEDAATF 
OFBDLSDORDICDOAFDZEB1LDOAFTZRDOS, 3829 
1080 DATA BOBDICDPAFSERDOADGSDOEDOAFAASD 
OPDOBNOEDOAFEFSDODDOBDOFDOAFS4ED, AISE 
1081 DATA O0D08D064D0AF7LEDOZDOEDOEDUAFEE 
ENOIDOSDOFTDOAFDLEDOSDÖORDOTDOAFTTO, 7976 
1097 DATA SD2ODNAFOSADZIDOSOAZFRRDATFLTD 
FFEFED4LFZIRFSCHRDZBFZIDFÄCIBDT4, 4555 
1993 DAra 7T49DECLZAFOFFDFEFD7’FDFIBRFOFID? 
PPECHACADODFTATOFSDIEDAAFTÜGRDEFOT, 3075 
1094 DATA FOAFFOGH LADOAFTOHEDSDDEATANGDIA 
GEAFFFEMISOFSBADUOREFFIODOFFRZFE, 3517 
i0es Data AFTOFOFFEFFDFFCHTDFZLIFBECCEON 
DOEFFBARZLEDILADITAFERSD1S03EBAFON, A528 
1085 DATA SDOAD4IDOBHHADIZDASUTEESDEADER 





1501 DATa GOOFüoscüipaganurgonndg 





CHONÖCHÜHICHO 


1002 DATA BISSNDDOOIIOOSDGTIIGIITUGINGOG 


GOSOODAIOAOIOLOIGDOIOEDAGGODFOION, 407 
1003 DATA PO4H0GH04I09HOGTGTEOLTOOZAUFFÜRA 
GBEFDIBÄSCDEAAACH FA TABARSÜSAAAFSTO, 7075 
1004 DATA SAAROSOOORAAAAFEZRAATUFRAAOGOR 
ABIODABAODSSBATODAENGOOABSTDOLOO, 19714 
1005 DATA SOCGSCOGOULOIIDAILIIDAIGTONAND 


GOOAIOOOSIOOISOTIOGIHIDDOODHOOG, 52 
1005 DATA GOIOOOODMIHISAAGEOGFARBOGEAAAGO 
BRASCOREAGOCHRAAGHOOZANGOGOGAOHUOD, ZEFO 
1207 DATA GOGGOOGNIIIGAOIDOTLOOIDDADOGIN 
SIOIOGOAEEIODZITOCGZUIICGONDGICHIG, BIO 
1008 DATA SOSIGGOGNDODRIOIIOOGGOHTONITO 


feminta\eiaie/nielsiuislalsisleiwialaieieisieisi#nialalaielalern [%) 


1010 DaTe OROZAROARAAADORAAAGOHIÜGOGHTOO 
wisiwisialninizlaieieieiniäinis KOOHGOOad, B7Ü 
10611 DATA QIODOGO00G2G0FI000OFEIZO0DIOAG 
OFOPAOSCHARREFZARABFFERAAFOFROAFA, 2590 
1012 DATA AS5SDAARBONSGEABNDIAAHGTONIGOAAA 
DONRAAIDDAAATIOFAROCHZAAONGZAUCO, 2255 
1013 DATA GAAGOOOAAGHOZEAIDGZEAGHTOAZFEOG 
SrIAGSHOGFTIODOBTLIGGHZIONNDOHHHO, 12320 


1013 DaTa aOGsanOGOIODOOOODOITIDORE 
KEOOFAHFOGRAADOGHBARDGOBEAOCHOGAB, 1A5S 
1515 DATA VGOODABOOGLAAOOONAAGOUGEFONGZERA 


GOOAPFEIIOGHOTDONIGÖOHONITIIDDDOOO, I 








1917 DATA ESIIOIGTTNIDIONDGOGODGIHOOIAGGOG 


Sompute eni 


10/86 


1017 DATA Ooünündg 
SONMTLCOZO0000ARO0SDAFZFORFBZFEA, 11i2 
1020 DATA AAFOSARAAFOPAGSFAARTZEDANGOGESAH 
IFSAROOOIDOOAARIGDAAAGOOAAROODZ, ZUBE 
1071 DATA AAGOGZAARDDOFAOCHOARTCOTABOONTA 
SOIH7FFOCHTPBALHHIOBAHHTGAZIGGOBIO, 1598 
1922 DATA GO082000A0 ISO 
GSOORGDOAIGCOTADOAGABCHTAATOGHARDOG, 1058 
1023 DATA BARBOÖOBEABSHZAROOGOAABROOHAZRO 
DOZSSOCTHZEBOOHHAFTHODÄAHOITOZENTIN, ZEIA 
1024 DATA 028000098959I0II00000009GC00000 


za 


AROGOAARGORAAADAAAAATGTONGGOIION, 1742 
1027 DAT& 0OO0000I000GGNIIGNOGONGINNIOHO 
IIAUGCNZOOGGHOFLEIGGODIOZTIHEHTAN, A2O 
1929 DATA OCOIAUFFOAFSFFEANIFOEAAAFOFAZA 
FAALOESARFSOSSAFONTLEALNGNOTTOARA, 2687 
1027 DATA FODAAAGTCOARACTOZAAOCOZAANNITAI 
IIGCAADGOFATOOGZATUOCOAZGGOHAZTOGHON, 1732 
DIOHOTHVNOOOHITTINIOHONOOTNOOTIAG, 875 
17:1 DATA ABONFAATOOBAAONDOBAAOCTAEAIDONO 
ABUCGOAHOOOGZACCHOZAGOGOTAGOHNOA, 1788 
1032 DATA GOO0OGATOCOZAFTIIFZIIITFÜHONGAG 
SIIGHHHHOGTOGOITOTIGCOIIIITDONHOHO, I 
INTE DATA 2OOONODOAOLOCHOGOANGOOGAANNOHN 


10935 BATA AAAROCHOOIOTTITIIHOIIIIGNONAGT 
SOSHIOHOHOTAAIGGGHIGOGGOCGZOTLIGOF, 258 
10354 DATA COOGODOIEHISCOAGTCHZAOFFÜAFEFF 
CAABFOARAAFOFAZAFANSOLDAANFSOSSAB, 3633 
1937 DATA OFEATOOONPEOAAAUNOAAATOOAAAOO 
DRAARDOZAAHTOZATTOZARTTDZARDIOZAB, 19774 
1039 DATA GOGFEANIN200000ALOOOOAODIAIHOH 
SOOBSIHHCHTIGIIIGOGOOOGOOHIIODGÖO, 158 
1037 DATA GOGAGMIAIDOOAAAAFTCHFARBOOHANAG 
SOBEABOOAAABONGZTAANGUGZBAGUGZOAOT, 2030 
1040 DATA 0202800A008309809A09800202800783 
SO000B25000A2IONGZIHOHGCHIIOHHNID, 574 
1041 DATA GOOOOIGOIGG0O III 
GGOGOOOSDLOGGIIGGOIIGGGOOGOHDDID, © 

1042 DATA GNOOCONGOIGCCOOAIGHGHHOHHHNHHNHIIN 
jeieisisinieiniriaizieinininiaiainieinintalalaieieieisieizieiein ie) 


GÜGITNGNGITITOTOUGGONIGGOAGNGOOG, 1104 
10944 DATA GO09GIOG0F09IIHOFLTIOOHONO0HS00 
8G23CHGPBGZFOABOFFEASOFOEAADFOFAAB, 2578 
1945 DATA FARAAGGAAFPSBTAEABOHFEATDRIOHIGON 
ARDOGAAATDOAARADIOZAADICZAATTDZAU, 2547 
1045 DATA GSSZACGODAAOOGDAZCONGAFTINHOEZAH 
SODGBELOIGAAOOCTITZODIGODIOGOHNON. 926 


AREABOOFARFOORARSOOBEROGGAAROHOOZ, 14584 
1049 DATA AOOO0ZAOOOOZEGCOOOATOOIGAHNGIZA 
SOODAAGODDERIODODBONGIGENDIGOTID, 7a 


1947 DATA DOICDIGSDITGGHSTTIIOOIOITHOAGAT- 


SFLIOOODIGZIOFCOAHUSCOPAGCTFOAFAER, i122 
1353 DATA EAASFOGAAAFUFAZAFANGTESAAGONTH 
ABOONYSAROOGSOICAAADGOAAACDOAAADO, SEES 
1054 DATA GEAACIIZAANIGPAOGHIUFRIGGHZBOGN 


1275 


Mn 
BJ 
rd 


7: 


"4 
N 
n2 


x190> 


«i131> 
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_Programme 





1061 Data AOOFORAOFFOAFGBSFEAASFOEAAAFORA 
ZAFARTIETAATOGTAATOGFAARITOED OO A, 2420 
19327 DATA ARÜOTARAGTGAAAGODAAATTDZAAINGE 
ASOOZFOOAOODAAGGOZBONGHZTUN, 1420 
105% DATA GG0FOOOIDATOTIOZIHAGHZHIONIOBO 
wlalelsieiziein/e/alele Ac7 
1054 DATA ASABOOBRARBSOHAROOOBAAUDGCHEANGO 
SOATSIHOABONMGGAARGOGRABANIPAZHODZO, 2450 
1055 DATA ABOOSAHSOCOAIGCSIGGIOIOGOGRIOGNT 
siaisgielsisieleiele 316 


ininiuiulslalelälsieiuieininiaieieialalainiaininisininieinleieiezn oO 
10647 DATR oda RBOIODRG 
SOOc0OODOODIDOHIIIIDZOOIIZAODOOAR, Z14 
1048 BATA 00 FAADOOdAGÖOOOOAGSdOOOae 
»ialaleisleluTuleleie 172 
105? DATA SOOdZOOOROANOGFEAOIODAFBOZZAAS 
OFEARAASFFAZASERDSSTAATHITRABOOTE, 3044 
1070 DATA AIOOASABIIGIOGZAAROOGAAATETFAR 
GPTEAADFOFANTZOFABROOCZADTOGOZIOUGS, 2184 
io71 DATA ORAASOGGA4OGGSOAGOGOGFXDIGGZRNAGNO 
HOOCG 337 
1072 DATA GO0200000000099007AABOOBAAAOORA 
AAAGBEISACHONHLAOOOGIEONIGAZHONGIA, Z1I2E 
1973 DATA 0000 1200909290000 G0GGOOGOGID 
[eieinisisieinleininialelaTetnisinieieinlalateinizieinin/nTalale Den 5 
1074 DATA OGOGOüGGGOIIGGSADOOODAOGOOONHO 
GOOGOOOGHIOGHHITOGHITIOTGCOOHANGIOH, CO 
1975 DATA DOOOO00000IGNDGOONIGGPGOONIGOD 
inielaieialeisinislalelalalalalslelale/nlalala/aTs/e/nTa alaTa veäruges 
1075 DATA BOAADAARAASEZAAMBUZAACGOIAGON 
VOODOOIGOSOODODOOSOHIGOTIOOOIGOG, 10489 
1077 DATA GO00OSIIIGOSBIIDIIORBADDRUD 
SOZG0030AOOOFERDOFDAEFBSFOAABFFFF, 1994 
1078 DATA SA7EAASATAAFASZTARTSLOFEHATOODGOR 
GEAADSCZAATTOZARTIOZARTOOABAOUIOA, 2718 
1977 DATA AODFSAAIOAAFOIOAAFTINSIOOCHOOO 
Inietwieisieleinieleluiaininieiniataisieleieiein.n/aTuinielaTstn Fe U Ir 
1080 DATA GHCCHONOAIHOAGTATOHHGONDOITGNON 
OO9EASUHTFARBOORAABOOBAARCOREAAENG, 1872 
1091 DATA IO0GAACDOOLACOOGLTADOASLTOCHZAOG 
GIGSDOCHIOOODOCIGNOGHNONOGOOONOG, 70 
1082 DATA SO0DI00000I0G00022INGOTD2OISID 
SONIGCOGADOTOSGONIHHDOOOONIIONGGGO, © 
1932 DATA GO0GIHDOITDOLIIALIKOIGIGHDOIOH 
IOODOGOOIONSIOOGHIOGTGOOCLONOOZAO, 1672 
19084 DATA O00982F09MIAAAGINTARAARCOZAAAFO2 
AREAFSAASOOOGOIIDSCHOGOIRIGSNGOD, 1417 
1085 DATA OIOOOGOOOIGOGOIIOGOGAKDGOFAOIN 
[sleisleigirieistainlelalalelaieimielerala nt ZuieTelnne ZuTaTa Hai a pe 
1095 DATA SRAUIGOFOMIOSFCEOAOFFFRAOSEBHFB 
FAEALTFAATAADOOZAAAATIFAAAIGHAAA, 3335 
1087 DATA GO0GAASSCDIZOODOIGONOOIIIHOHTC 
GOOIOOOGOHDGGONOGOOGIOOOOOHODIDO, 172 
1958 DATA GOOOHORRDOOOIGOIOHONGIOIIHOHT 
DOGGOGOODITDIDIOGITEARSAFAABISGER, 1054 
1087 DATA ABIOEAAGOOBAAOIGZAREONGTABHONN 
PEOGOGADTAIDSIHNGIZIOHHUOLIOHOON, 1537 
1070 DATA BOOOIIAOIGCDAIGSAGZIOTNIGZROCOO 


1071 DATA SocüonüddaöscadidsdddünGddnnnnn 


Gompure mik 


Dt 


isn 


Air 


193} 


1575 


<95> 


37 





36 


Programme 


SONZAOOAFRAADAARAADACARÄSTHDGODIG, 714 
10993 DATA SOdIOOHOOOOSOODODGOIOOGODG 
GOOOOHOHONOIGOHTDOHDONGONIOLONNOT, 195 
1074 DSTA FOOGOGZ4SCCHBÜZDOFISAOFFLZAOFF 
FAFBFCEPAARSARSAAFEAFORASAATARÜDOO, FIo4 
10995 DATA OZAADCOSZAROOGZARDOOOAAGGOGARON 
GOPBOIODZBITTIZTFIIIIDANTIGHTINON, 975 
109% DATA SPONSOR LOGOS 
112 


SIO290O000ZASODGDAUNDGOLADGDIGAGOD, 2502 


1697 DATA Oooocnad, 0 
ENDE DES LISTINGS 





C&4#4 LISTING MIT CHECEKSUMFEN iD V1.05 


1 AD=T75&0: FORI= LO00TG1044: RERDAS „Fü: C=ü 
: FÜRN=ITOLENIAFISTEFT 

2 A=ASC (MIDE(AF,N, 1) 1-48: BeAdl tMIDE Ar, N 
+1,19) -4B: A=A+7# {A} 9) ı Bei 78 (27) 

3 FOKEAD, Lerä+Bsü=C+issd+Br: AD=AD-+l 

4 NEXTSFRINTIS"LSPACER" = IFDSSPSTHENFRIN 
TFERROR":STOR 

z PRINT"TOEUSNEXT 

& FRINT"FERTIB" SEND 














FEFF ori 


SD4029304504040 















SHE: 
Host 
=D3 


SOEDEN 
Y, 1492 
ZDZDEDOO 


1902 DATA ZOGaSGmüdAt 
SD2D2DEDEDOYZOGRZZO0G0L 





SIITOINGOTOBDIATIONIGCOONMGZOIHOH, 7 


1.07 DATA OIGSZBASOZBEZHROOBAAZOITAZUHGD 
EIIBAZTFOOCIHG TION ZIVDOOZOH, 1715 


1008 DATA OEOIOFZOOBBEZEIDEZUTZOTTEGHZOUB 





a elatapelelemelarerelalaruleelElnie vegan pen GBcongz, 1 544 
1007 DATA SOON ZOO ZIGOIHOBHDEOTCIOe 
GEZOGGOLOFOFZFBFOFÖOFA040404040AD, 101 





POTT FHILFOIIOTZOOOTOFTITORTTIA, 717 
ic1l DAära FÜORARSSAITONTORIFFOSAADITHIDEIEH 
ZIOE2OFTOHHIZEODONGOOOGFOOTFFOA, 1472 
EEIEIOHNGZODEZ 


SIOOKOHUHU, 1464 









zit 


2) 





1635 DATE SDOOOODOTOTEFTFA4RFAFDFFFFFAFIEA 
ÖFÜOEOGZUOFZFATDEFAODOTATDOFORODOAG, 3287 


EBE2E288 


1013 DATA S000055040DOF43DF4EG 





DOFSFDFFFFFAFOOOOIOFAGAGDEFIEDOF, 5 
1047 DATA OSDZF45DOF2E0040DOOFOBÜOA4OHOF4 
SDEFSSDSFDIDEDZEDED7DF43BÖ0FOZ0000, 2827 
10i9 DATA Oo amgAnDüFraaigorFüsrfDroADSDE 
2D7DFDODOGIHGBSZOHAROZOFDSDIDTDER , 











1965 


Far 


L249% 


DAR 





101% DATA ISO ZBATTDIIODSROGNOOHIOND 
\aFFSFDFFFSFSFSFSDDEOFOSEDT, ZOB0 





idzo 
DEFDDDE?D7D7D777FF7FTS7SFSFSSDEF 5, 4976 
1021 DATA SDSDDDFDDDCEO7OSCH77S7D77FSD7D? 
FFFFFFFSZESOD7SSDSFSDSDDDFDORD7D7, 5075 
1022 DATA D7D?7FFFFFFFSTSFSTSSDSFSDEDDDF7 


EDDDDEDEDDBDF7D7DESCOTITSLCECHCOLZOE, 31237 
1023 DATA 2OOOIGODZOLOOD7D7T7ZFOZACHNNOZ 
75F375SSDSFDDEDGDFBUDDE7D7’D?’D?7777F, 7113 
1024 DATA 7OFDFOFOEFDBSDSDIDEGCOCOTZOCcH 
CO7FFIISCHÜSZODGOOSDDDFDDDDDDDIF, 42 
1025 DATA OCCZEICACOTELEIDÜORGZAUZIGTZEB 
EIODOOFOFHFORFAAABAICHHOOCOCA4O, 2I7E 
1076 DATA AGPOBATTOZLL11111I2IZ0OC00 10000 
1OUOVOGHORESCSCILZEAAARAASAD7IF1314, 197085 
1077 DATA 1414280035FF7FDFF?7FDSSOOSSFDF? 









co 





1028 DATA 1LGugOO04920059044IH90400010517 
14530505150490505941 4050505055025 7D, 706 
1027 DATA SD5SDSDSPSDOS03CS405030705000 
SCHDEFZBARRAEBZSFFFFOFFFFOSSC000, 2543 





SOORNOSLAILOHT is4 
1521 DSTAa GoconogoDühr GGODIGGOOGGONDNID 
S1140SSDOFFFFFFFIOASILLEFFFPFFF?T,OSR6D 


1077 DATA G04504477FFFFFFFO41G005DDFFFFF 
FFOINDASFFTFFFFIFFFOOSGOSSFFERFFFF, 2990 

338 DATA FFFFFFFFFFORSE4LOUFERFIREFFFSD 
FFEFFEFFFOIOOSSFFEFFFFFFEFG, 5874 
FERFFFEFFFLSOOOFFDFFFFEFF 


BERZEFOCEN 






1042 DATA OOo AGAZAFBTBAIACAGAGBAGZACAGA 
SROTDPOZÜRDEONBBEASTBIATZEITTE, 1940 
1042 DaTa ZIAPBLEORTEZTTZOITTITÖGAHATIGTAG 
BERGBASAOOCHFAATAARDAFTZANTOIGDEDEND, 2&34 
io44 DATA GOBOSOSüISal POADBZSIOATEIDDAOAN 
HAGER DOSZOEDEOADZEGTIOAGZUOARAFA, 1572 
1045 DATA GERDZOAAAABDDSZAZIOATATOZRTMEIRZ 








PERTASAZAZZ : IIETERGEDS, rd 
1045 0473 TRERATOFSOARDTOOBZAZTATUGRZEIGG, 
712 


ENDE DES LISTINGS 





iD W1.0) 


C&4 LISTING MIT CHECKSUMMEN 


m. 


o PFORTSS,LDOO:FRINTCHRE EN 
1 IPäsOTHENA=1:PRINT"IDLEARFFLEABEIEFPACE 
IWSAITIEPACETZISPACEFMINLTES"LOADHORSEL 
SPACEFDATA" ,„B,1 

5 FORX=BEFTDA&S: RERDEH FOREX „Os NEXT 

5 DATAI2O,169,51,152,1,159,0,133, 75,127, 
?9,123,28,149,208, 1377, 9%,157,240,173 

7 DATABF,169,224,127,91,22,191,162,169,5 
5,122,1,208,975 








Compuhe mib 














<19% 





10/86 


8 SY3d32: POKEBSO, Lad 

10 FORI=4791T0718: READB:POKEI „OD: NEXT 

15 DATAZ,E,6,1, 

20 DATAO40,0,146,050, 

z0 DATAO,S,S,14, 

49 DATAG,0,0,Ö, 

50 FORI=7S2T07&1: READG:FOKET ,O: NEXT: DATA 
8,7,14,4,5,18,14,9,19,17 

&0 FORI=B28T0853: READN:POKEI,G:NEXT 

&1 DATA&,S,8,17,5,18,7,5,19,3,8,1,5,6,20 
„17,20,19,1,6,16,21,14,11,20,5 

70 FORI=870T0878: READB:FOKET „B:NEXT 

71 DATA9,8,18,5,32,26,5,9,20 

95 FORI=341761037247: PFOKEI+14000,PEEKIEH) 
ıNEXT 

9& FORI=37307G39500: POKEI+20000, PEEK (I 
ıNEXT 

37 FÜRT=57557T157559ı READE: FOKET „Os: NEXT 

78 DATA125,14,28,56,112,112,126,0 

57 FORT=57500T057607: POKET „Or NEXT 


104 SYG7T17ar 

EESTe ee 22 en ne Eee 122 2 2 5 22 22 2 2 2 2 202 20202 02.2. 200 2.2202 
igi * * 
iB2 # HORSE GAMES * 
183 + * 
ig4 9» ic) 1984 BY * 
185 * * 
186 #* RADDISH-EOFT * 
137 # * 
ia * MUSIE <> BY SKINNY * 
187 * * 
170% * 
171 * TEL. 02345 / Ssson8 * 
172 * * 
13 REN EHER FT 


ENDE DES LISTINGS 





E64 LISTING MIT CHECKSUMMEN {6 Vi1.0) 


1 AD=24575: FORI=1000T9111 7: READAF „Fü: C=0 
:FORN=1ITOLEN (A$) STEFZ 

2 A=ASC MID CAF, N, 13)-48: BASE (MIDE (AS,N 
+1,13) -48: A=At7?8 (A>P) Ss B=B+7#(B>9) 

= FORERD, 1O8HA+B: C=t+PFEEK (AD) : AD=SAD+1L 

A NEXTıFRINTIE "TSPAGEF" 3: IFCC>FSTHENFRIN 
TERROR" «STOP " 

5 FRINT"OK*":NEXT 

& FRINT"FERTIE":END 

1000 DATA 2702020202020202020702020202020 
IBICZOZOZOZOZGZOZOROEHA0EDZUEORN, 983 
1001 DATA 202020202020202020292020202020 
2020202020332420342026074790202020, 1071 
1uc2 DATA 2020202020242020202902020203420 
ZO2G2020E420H2020202020342020209, 1672 
1007 DATA 206620342034203420202020342034 
297026270207434202020242020343420, 1262 
1004 DATA 203420202020342020202034202020 
SOF42020G2GENI4TNFTOLOZGE420202074, 1132 
1005 DATA 3420207420203420290342020293420 
20333420342020242020202020202020, 1171 
1004 BATA 2534202026202020202420207070720 
SO2RGZORH2HZIZOEOEOIGEOIHRO2IZU, 1032 
1007 DATA ZO2OZGLRIE2O702020202620202020 
DOEOZÖZIFOIRIFIEOZOZUZURGZUZ020ZU, 983 
1059 DATA 702020202020702020202034202029 
2020342020297420Z81D1EILRG203420, 1071 
1007 DATA 20242020202072034209702020207420 


_ Listing Teil 4 


<r0&> 
SIE 
2176» 
2Ba> 
2197> 
2135 


“135 


er 


EB} We 
“1175 


123 


2475 
785 
<148> 
“14> 
<13> 
AIGRHr 
<185> 
x1435 
“1875 
22125 
<197> 
Er-y 

=191> 
120% 
ELFTF 
2194 > 
<50> 
<1F&> 
il> 


w22hr 


zi10> 
<244> 
CrAb> 
1685 


“218> 


SOZ42D2EPFEO2I2020342034534202020, 


programme 


FOIPITOSITOTOLOPÖFIPOITOISTHITEBER, 1207 
1010 BATA 34747G343426202034202434202029 
202420 2029742020202G202024203434, 1212 
1011 DATA 207420243420343434674967243420 
20702034203420242070203434202020, 1468 
1012 DATA 2020342020720342053342020342020 
342027020 70VU20205I54203470202020, 1298 
1015 DATA 2034202024202020270203420202020 
FSIFU20342070203425377583734342034, 1266 
1614 DATA 3420702074202034202062020342020 
2OZ42CPOHPHTOPOEG2UZE4ZUTOZGZOEH, 1137 
1915 DATA 2020202026742920203420291D1E1T 
SPOTOR420203470270202020F3370202020, 1071 
161& DATA 2037420202027347070202034202020 
2G20202072020342020742024270202920, 1112 
1017 DATA 1F2921102324202020203434202024 
342020634342020202020202020242020, 1125 
1018 DATA 2020203AIBSCIDIESF404120203434 
ZOEOZ42ZOPGF42U20I4202034290202020, 1748 
10617 DATA 2020203420270202020742020202020 
FOSSSRSESCADEIZ42420342020343420, 1560 
1020 DATA 3434202020203420202029203420625 
55545759592020342020342020742055, 1460 
io21 DAFA 36575935993420243420203420202020 
F420242020343420202034 2020342034, 1440 
1622 DATA ZBSLCZDFETIFAOA12020343420203425 
25342029742020342020202020202074, 1342 
1623 DATA 3420203420203420203420203420534 
DOROFO2OIF2F2L1DZEFTZI4AGEOZOPOE4E4, 1185 
1624 DATA 202020342020343420207020202029 
20542020202020342020202074202020, 1112 
1525 DATA 20347020205434202AZP2C29272434 
20342420703434203434202020203420, 1263 
1026 DATA 202020203220203420342020204243 
204.445464724202034203420242020290, 1547 
1027 DATA 27070202020262634202020234203420 
242024202034 I432325AGE6F70717272, 1709 
1078 DATA 343420342020292034203429342020 
20202920202033205A5RHESDSESF 2020, 1495 
1527 DATA F42026343420205ASESCIDIESF2OI4 
ZO2O2534202034203434207420203420, 1399 
1030 DATA 702034207057420202042432044454& 
47242020342034203420202020202020, 1331 
19371 DATA 202620342020203420342020202020 
3420202020342920203434202A2B2C27, 1174 
1072? DATA 272474203434202034342034342020 
20203420202020203420202020342020, 1203 
1033 DATA 202020342020342034203434203420 
1254 
1034 DATA 203420342020542020202934263429 
262020703120702048474A4R4C403424, 1404 
1025 DATA 2020202020203420202072934202020 
3420742020202024205342074202034334, 1172 
1026 DATA 3123274757877787732342034202054 
54242020203420342020202020203420, 1724 
1027 DATA 26031324041622020203420342034209 
5432726061 4720202034202024202034, 1573 
1039 DATA 2020534202033202034202020342034 
3220797045847454B464D342420202029,. 1405 
1079 DATA 202034202020203426202034203420 
2O2N26374303420342074342034203434, 1232 
1944 DATA 20342020342D2E2F30242020342034 
34202070203420342070342020202020, 1214 
1541 DATA 202074202934203420202020342020 
3420202074202034203420342D312234, 1240 
1042 DATA 203420322020342020202020203420 
ZU2EO2O20342029O203429203720203420, 1148 
1047 DATA 2074206203420202034202034202620 
203426020202020142020203420202020, 1132 
1044 DATA 202020342020202034202020747A7B 
7C7D20342020262020202020202332020, 1522 
1045 DATA 202034203420203420203220436483 
202034202020202020343120636454520,, 1535 
1045 DATA 2026034202020203420742020342020 





GCompube mi 


i12PE 
A22BE 
4 


x<B&> 


EROOF 
21917 
<1975> 
<161> 
21975 
i1rl5 
br 


»1891> 


x184> 
<104> 
2445 
<17> 

x2077> 


x172> 


<88> 
<BB> 


<176> 


39 


202034202020742020203420203742020, 1152 
1047 DATA 39420202653420203420202029342020 
202020342020620342020203420202054, 1152 
1048 DATA 202020342020703420202420342034 
203132342034203220202342025202020, 1718 
1047 DATA 203420702020202034202020342020 
70708688978796389784388236870782, 24893 
1550 DATA 6870687098968759828587B4BDB4BF3A 
8457888480868297948887BAHBA8D08587 , 41971 
1951 DATA 8787808497883796888698785888897 
E7EIBASDBHBZEARBHTERBAEDBAUT7EBBR , 4176 
1052 DATA 858489849786 8434BBBHB4883978858 
84RB589787878497868887878797B8BA, 4184 
1952 DATA 868924878697890987049799979782 
SB8DI6s3DHESABYHABANTRT7EZBBSDBSBZ, 4172 
1054 DATA 8882848284 8D00882845D333537F738 





FEFABFFPOYLFPPFZIAGFINYFLIERZFIBFTO, 45097 
1084 DATA 719292948 F909 17 2IS7AOFROTLFPZ2FE 
FHBFTOPLFZFEFIGFFOFTLFEFZPIOFFOFL, 4510 
1935 DATA FEF3Z94OFF091 FEI TFABFFOR1 72924 
SFPOFIFZIZTABFFOFLF2FIFAIFFOT1FZ, A511 
1595 DATA FEF4BFFOI1FZPEFIEFFGFLOEFPZFIOF 
FOFLFZIEFIEFOFLIEIZIAORIONI FETT, 4512 
1087 DATA FABFYOP1 FEFZYABFF70O9I L FZPEIFIOFIO 
FI1FZIZFTAEFPOFLF2FIIIBFFOFI1VFZIEIA, SIE 
1088 DATA AFFOILFZFIF4HFFOILPZFIFIGFFOFN 
FZEFZTABFTOFLFETZFASFFOFLFERITABF ,„ 4509 
1089 DATA FOR FPEIFIAEFIOFLFZIEPAIHFIOI1IF2 
FZFARFFORLFSFERAGFFOFLFZTIFABFIO, 453597 
1090 DATA F1F29729748F 7097 1 FZ2FIFARFFOPLI2FE 
FABFFOFLFZREFABFFOFTIIERFFFFFFFFF, 5058 
1071 DATA FFFFEFFFFFFFFFFFFFFFFFFRRFFFFFF 


B7BB9E&2B3487880H9BTBEBAB7EABDEBRB , 4186 x<197%&> FFFFFFFFEFFFFFFFFFFFFFFFFFFFFFFF, 79705 172 
1055 DATA B7BB58E0B894R78437923497908862 1072 bara FFFFFFFFFFFFFFFFFFFFTFFFFFFFFFF 
G73&97E7BBB487878787872042406343, 2868 S2ol> FFFFFFFFFFEFEFOCFFFFOBFFFFOOAD4S, 6277 AROES 
1055 DATA 84878480999 204508E983797988758 10972 DATA GOOOHOSZEEOOOOAIOIEOOGGOA SON 
G49994B7BEBIBZERIABRTFSARDEIBABT7AR, Ari ice Inisielelsieizieieiainieininieieiaiuinieieialein ninTuininin nie Zune Te) ISO 
1057 DATA 393808895897868798296897ED5E820765 1294 DATA Od OIHISTITIDAIDOUSFTIIIOTIOOTN 
E79792B4873787B787203BAGR7B738786, 4077 A358 GORDON IOGOOIODOFTFFFEFEFFF, 1473 FE 


io5Qd DATA 83885979330494272786948554958E95 
BESSEMESBEBSEBECR48S94BSIBEBSBERS, 4184 
10597 DATA 9594992948989796878495BE8BFAABTSE 
8594958495548 58EB5BEBSBEBSSIEBS584, 4191 
‚ 1050 DATA 959495959594958E8594959845504895 
8485848584558 4959485945584858495, 4129 
10641 DATA 849584085845584859495984858485H4 
BS5B4BSR49SB4B5GERSBEBTBESSBSSBBE, 4151 
i0G? DATA 95949858ES5BEBSBESSHEASBEBSSEST 
BESSBEB7B5878888875B999487979788, 4225 
1053 DATA B3898998BA4ETARN5978696ET0I0AH7 
GHARRFBEBAB3B7EFAHALHTEEEBBEHT7ET7, 4157 
1044 DATA 988848642041 4053, 38 IBEBIHEFSBERT 
BEB75687888887889884878787088388 , 3870 
1045 DATA 8598868399869704858368968788893 
SHARGEEBTAFBBHAST7BFHEREETEBTERBE, 4162 
1064 DATA 862095947793997 749376777397 9A95 
GEFTTERFFAFTIETTIBEFTFF7AF576779897 , 4557 
1057 DATA PAPST FT TATTFEFFIETTIRFTFE 
FFFETTITETTFHF FFREFFTAFTFEFFFET FIN, 4599 
1058 DATA 9576779997 PAFTIFEFTTEI FFAPSTHIT 
FETFTAFTTFTETFIETFFAF FIAT FFETFFRFS, 46594 
104? DATA 95979799799A9375977 IBPI9A9ISTE97IO 
FFIAFZSIETFIEITTAFEIETTFBTFTIAITFTE, 4695 
1070 DATA F7FOIFFAFSIHFF FETT TAFTTOFFFERT 
FVEFTZPETFIETTPIATZIGTF FFEF IT AFTT HT , 9696 
1071 DATA FE ARTE 73H I PAFTIHFTFFAIIIR 


Kt 


De 


Pe 


1095 DATA FFFEFEFFFFEFFFFFEFFFFFFFFFFFFF 
FFFEFTFEFFFEFFFFFFEFFEFFFRFFFFFF , 7905 
1094 DATA FFFFFFFFFFFEFFEFFFEFFFFFRFFFRRF 
FFFFFFFFFFFFFFFFFFEFEFÖCHFFFFEOFF, 7211 
1027 DATA FFOO640420000004 343009 5AZOOEEO0 
GO4EOCIOTOIGHHIIOIGCNGHNIGOITONGOG, 7A 


SGOCIDOGHOIGGICODIGAODGANGOOGOGFF, SUR 
1097 DATA FFBFEFFFFFODOGDODOSODSAUDOTORONT 
GEGSOBOTOROSTGAGSCHAHOTOAGEDAGAUFGA4, 1IOR 
1100 DATA 9Gr04999445 90 SH D0 AO TOS0DIOSODHIOR 
SHHSOEOTOROFOAITOAGTOACZOAGANTF, 248 
116: DATA 04090497049 79G8ID05CDGOEONOSMDT 
OBOSOBOSOHOSOROSCAUTOAOTOAOTOADA, 24T 
1162 DATA 0704070409940 9703 FO AELABEOACF 
FERFFELFFECF FEFEFFFEFFFERFFEFFER, 3698 


41103 barAa CAETCAIEZDIETCABSOABSOAISCARSÄA | 


ECFFELCFFECFFELFFEFERTTFEFTTFEFTFERT, 49774 
1104 DATA EZCA4EZCIEZDIEZCIBTFSOASTORFITORBT 
GACFIEEFFECFPELFFETBFTFRFFIEFTFTB, 4953 
1105 Darfa FFEZLHESCIEZCHEZCIALDZOLAFZIOLD 
IAIAIDEOLAZTZZZOLDLALAIAIAIALAID, 2375 
1104 DATA ZO1D1IBIDIDIMIA1ISLAFPFZFEFETETRT 
DINFPTITRFZFRFETEFETFZFEFEFETETFET, 1104 


14197 DATA ZIETEFETZFETETFEFZFZFIRIOLAIDZO 


ID1A2GIDIAITIATDIDIAI7TLSISIALAIA, 745 


1102 DATA 1ALALAIEZLSISLISLIIFLSTIISASDRLACR 





FEIEFFIOTTIAITFEFTFTIITIATETET TI, BETT EI BE451341495DB1412TCFDEA4S1A14141414, 197904 205 
1072 DATA FFFAIIIHFTIEFFTTAFSEFLI TFEIFTIAIT 1107 DATA 13450B4545454545147DO9F1II7I1 12 
FEFFIETTTAFEFHTFFFTEFTFOFTIFETTFFOTF, 46970 Dr 121 712121212121 R12121 212121 21218, 1377 SICHT 
iNn7zZ DATA FAFSIAFTIEFFORGETAFFFIFTPAFTFE ı1119 DATA 121712181 424171 717221439D14 





FIFAITHAPTTATFFEFFFATTSFTEFFIFETFTA, 46977 
1074 DATA 93975979399 273 F IF IF IFETLIDIEFF 
AUFBFLPDIEFFADFRICIDFEFFAOYEICHD, A803 
1975 DATA PEFRFAGFBFCTDFEFFAGPBFLFDIEFFAO 
FEFICHDFEFFAGFEITFPDPEFFAOFRICHDIFE , 4855 
107& DATA IFAOSBICHDBIEFFAOFRICFDIEFFAOFE 
SCHDFEFFAOFRBFEFDFEFFAOFEFLIDIEFT „ A904 
1077 DATA AOPBFCHDIEFFACFEPCIDIEFFAGTBST 
SDTEFFADGFBTEPDIEFFAOPEPTSBIEIFAD, 48085 
1078 DATA FRFCFDIEFFAODFEFLCIDFEFFAOFRFCHD 
FEFFAGFEBFLEFDFEIFÄAUFEICHDFEFFRAOFE, 4880 
1077 DATE PEFDFEFFAOFEFEFDFEFFAOTFEICIDIE 
FFAOFEFLTDPEFFAOFBITETFDFEFFAOFRIE, 4281 
108G DATA FDIEFFAOFBFLFOTEFFRAOFRFLFDIEFF 
MIFETCIDIFEFFAGFRIETDIEFFACFEICEHD, 4882 
1091 DATA FEYFAGFPBIETFDFEFFAOFEFLFDTERFAO 
SEFLFDIEFFAOTEFCIDIEFFAUFEFTIDIE, ABDBE 
10942 DATA FFAOFRFEFDFETFFAOFEFCHDFEIFFRFE 
SEFBFPEBFFIOFLFZIEFARFPOTLFZFZTFIDF, #713 
1033 DATA FOFLFIFIFHOFFOFLIEFZFISFFOPLFE 


Z5DEA451A3DH35127214454714IBEDED14, 1268 12975 


1111 DATA 1414194141489 99 O9 DP IYBTOFIONDDO 
ÜGGGGOOOTGHDIEODGOHNGHONIOGOTUDO, 11F%& 


1112 DATA ÜObocKnünböäoobnüungonlonGlölLD 
ZiIAPZICIGBIALAIDZIIATFZIZOIDIAIA, 5 
1112 DATA 1A1AIALIAIDZOIDIDLDIDIDIALSI 
INZODII7FIIEGI7IZZOIN Fr 
1114 DATA 1AZEZFFERZ ZiDLÄIBLAIDZZZOLD 
IIOGOOGIITHIOGOGUTIDIGTHIGOIGTONIO , 457 











320 






14250B140FBE45141445DB1412CFDR45, 1204 
111& DATA 14141414141345DR434345454514970 
837DE4SDREFIZCFDEIZCFDBASDECFEFDRE, 25970 
1117 DATA 431I41L4CFEFEFÖFCFEF45149B144SCH 
DES, zZı81 

ENDE DES LISTINGS 











C44 LISTING MIT CHECKSUMMEN TC v1.0 


1 AD=29000: FORI=1090T01 032: READAF , PS: C=O 
:FÜRN=1TDLEN (AFISTEPZ 

2 A=RSCCMIDECAF,N, 2) 1-48: B=ASC (MID$ (A&,N 
+1,1)3-48: A=Ar 7% (A590); B=B+7%* (859) 

= FOKERAD, 188A+B: G=CH+HPEEE (AD) : AD=Ab+1 

4 NEXT=FRINTI; " {SPACE}; 2 IFC< »FSTHENPRIN 
T"ERRBR":STOP 

5 FRINT’OK"SNEXT 

& PRINT"FERTIS":END - 

10900 DATA 26202020202020207G2020202070AB 
AUZ2OADADZOADR202020202020270702070, 1674 
00] DATA 202020202020202020207020207070 
ZN20202C2OZOZOZOAEAFRBORICFEPBS2O, 7034 
1002 DATA 262020292026202420202020202070 
202020202020920202020202020202020, 79772 
1903 DATA ZOB4BSB&E7RABFBA20202020207070 
202020202020202020207920209202020, 2049 
1054 DATA 2020202062020202020202070707029 
202027029202020202020202020202070, 9972 
10605 DATA 202020202020202020202020 202020 
BEBCEDZO2C2O2O2U2O20CAC720202070, 17973 
10668 DATA 202020202020297020702070202020 
Z0202020202020202Z0OBERFLOCICECIC4H, 2117 
1907 DATA ESZOZOLSEPECACBECCDEETC3FOFORGOZO 
MEI2GZOZHNPINIZIZORDZTOFGTOTIZU, 2517 
1059 DATA ZOZOREBCEBDZ0702020262070C46770 
ZRZIZOEOIGZOZGZGROZOPOZORGTGRUIO, 1793 
10097 DATA 202020202027020702070275BEHFTCOCL 
LECSEAESTOROCBCICACBCCEDLECTPOPG, 3644 
1019 DATA 2020202020202797970 2020207027070 
ZGEN2GZOEGZI2G2OZOZGZOZUZTENZOFU, 992 
1611 DATA 2026202020202020207027020292470 
MEOGEGZOSGZGZOZLOZIZNAGTHZOZOZGZO, 992 


I 
ER 
[3 
nr 


Br 


“161? 
<176> 


157 


“136: 


lö> 
Far 
1445 


A173 


1012 DATA 202020702020 70702020 202N7OTOTO 
2O2OZDEOROZOZIZILIZOZONINGTOTGPO, 992 
1512 DATA ZO2O2IFIIITOPOIITOHFTIHTATHTNEN 
SIEOCZIZIAIFOZIZIZGEOPHZOZOLOLUFG, FRE 
10142 DATA ZOZG2ROZOPIR1HSHFTETESEIHPBHANET 
2537964298507 ED970BE6FFAEBTBAB7ER, 3470 
1015 DATA 8797909689298L.934L0D0587978. 7070 
B4BSCKE5870207BEBSBAOTBABTSBABSBE, I97& 
1015 DATA 9594358E859IBSCHIE5AI4BFHE8534B3 
379935387830783072020202070702020, 3255 
1617 DATA 2020262929202920270202H70207020 
20202020202020207920202029202025, 992 
1618 BATA 202029202020202020 707970 IH2070 
EOZOLILOTOZTOTOTORCPOPIZIZOFOTU, 997 
1517 DATA 2070202G2620252520292070207420 
#0242020202034262020342020202054, 1092 
1020 DATA 20206202074202020270342020702U434 
20202020203320343420702034202020, 1132 
1021 DATA 3420202934203745354207470203420 
2034.2020702920342020342020202024, 1275 
1022 DATA 2742020342026342020202034203420 
205557585920203420342034202053420, 1374 
1023 DATA 207070342020203420742034203420 
24205342420343434345SASBSCHDSESFZO, 1595 
1524 DATA 74342034203420203434 20202343470 
SGZOFSISIZIAZANZOIIPOF4T4E420343420, 1357 
10925 DATA 3242424 34746061652637035434203420 
S342027034202420342020293470202074, 1534 
1026 DATA 202034202927034703542070703427970 
3454653742020242020342034270203434, 1347 
1027 DATA 2020202020707067020207020707070 
20202020202020292020202020207020, 9972 
1028 DATA 242070202020262070702920207070 
z0202020202020202020202029 292020, 9972 
102% DATA 202020202020292920702070 797070 
ZIZOZGZU2NZOZIFO2IZIPOTOFOTOZORO, 9772 
10350 DATA 202530202027207070 070 70207071420 
ZO2O2G202G202GN02020202020292070, 992 
1031 DATA 20202020292020202Z0702970707020 
20202020292020202020202020202020, 9772 
19032 DATA ZO2UO2002O202070, 25% 

ENDE DES LISTINGS 





Spiels kennenlernen. 


wird. 


Sompube mi 


Programme 


Patroville 


Nach einem Einblick in die $pie- 
lanleitung muß man in eirem 
Wald patrouillieren. Dabei müs- 
sen Sie verschiedene Hindernisse 
überwinden oder beseitigen, wie 
2.B.: Gräben, Holzstapel oder 
Felsbrocken. Viele dieser Hinder- 
nisse haben ihre ganz speziellen 
Tücken, die Sie erst im Laufe des 
Zusatz- 
punkte gibt es, wenn ein entge- 
genfliegender Vogel abgeballert 


Die Steuerung erfolgt über Joy- 
stick am CTRL-Port 2. Das Spiel 
ist vollständig in Maschinenspra- 
che geschrieben und ermöglicht 
so einen fliessenden Ablauf. 
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programme 





C44 LISTING MIT CHECKSUMMEN {2 1.0) 


160 REM *PATRUUILLE* {CE} RALF PROBST <19 
86> 
120 
140 


FORT=491521052403 

READA: POKET ,A:NEXT 

160 5Y549182 

300 DATASZ,230,201,32,156,198,169,32,141 
‚179,2,169,19,141,218,2,141,220 

501 DATA2,141,225,2,141,229,2,169,22,141 
»„219,2,141,221,2,169,25,141 

302 DATA223,2,141,224,2,141,226,2, 169,29 
„141,222,2,141,229,2,169,70 

303 DATA141,187,2,141,183,2,169,33,141,1 
84,2,141,227,2,167,160,141,230 

304 DATAZ,141,734,2,169,227,141,235,2,16 
2,247 ,142,236,2,232,142,237,2 

305 DATA159,98,191,238,2.169,121,141,239 
„2,169,111,141,290,2,169, 100,141 

306 DATA741,2,169,80,141,0,208,167,178,1 
41,1,2098,169,194,141,3,208,167 

307 DATA180,141,5,208,167,159,141,7,708, 
1659,175,141,11,208,169,253,141,28 

308 DATA208,169,7,141,37,208,141,46,208, 
167,0,141,38,208,149,67,141,29 

3097 DATA208,167,8,141,23,20B, 169 ,2,141,3 
7,208,169,9,141,41,208,159,1 

316 DATA141,42,208,141,33,70R,141,44,208B 
„1659,12,141,45,209,141,248,2,162 

Sit DATA10,142,32,208, 142,35, 208,167,255 
„141,164,2,173,197,0,201,64,208 
312 DATA749,1689,147,32,210,255,238,134,2 
»32,178,200,32,7539,199,169,15,141 

Z13 DATA214,0,169,13,141,211,0,32, 16,229 
‚160,0,185,25,201,32,210,255 

314 DATA200,192,11,208,245,173,197,0,Z01 
134,240,143,701,64,208,7,169,1& 

#15 DATA44,0,220,209,203,76,59,193,160,0 
‚140,4,212,140,187,2,32,25 

31& DATA199,32,22,200,162,0,142,198,0,25 
4,174,1978,0,240,250,172,187,2 

317 DATA200,200,192,8,144,227,76,205,192 
„169,147,32,210,255,169,0,162,9 

Z18 DATA1S7,198,2,202,208,250,162,240,16 
7,160,157,247 ,6,169,12,157,747,218 

517 DATA2O2,208,243,169,140,141,77,7,141 
„R1,7,167,133,141,78,7,141,80 

T20 DATA7,141,90,7,141,91,7,141,106,7,1& 
7,150,141,79,7,169, 138,141 

721 DATA89,7,1659,147,141,93,7,169,144,14 
1,101,7,141,92,7,1689,149,141 

322 DATA102,7,169,142,141,103,7,167, 139, 
141,104,7,169,148,141,105,7,1&9 

325 DATA48,141,145,7,160,0,1697,7,162,6,1 
57,100,217,152,157,140,219,202 

324 DATA169,7,157,76,219,157,100,219,157 
‚88,217,152,157,140,217,202,200,238 

325 DATA142, 16,208,142,251,0,142,27,208, 
140,131,219,140,119,217,169,51,141 

326 DATA131,7,232,192,119,7,142,21,708,1 
47,168,2,1942,169,72,142,2372,? 


327 DATA142,233,2,237,142,187,2,142,199, 


2,167,15,1492,40,2089,142,33,208 
S28 DATA152,17,142,18,217,162,9,142,14,2 
12,160,0,162,3,32,243,199,162 

329 DATA255,142,230,2,142,7231,2,238,250, 
0,208,67,238,171,2,173,171,2 

330 DATA41,1,240,57,258,117,7,160, 10,140 
,200,2,173,187,2,10,205,19%7 

351 DATA2,144,22,173,199,2,10,201,128,20 
9,6,.206,248,2,75,83,194,141 


<27> 
<139> 
<116> 
<74> 
<216> 
«225> 
<48> 
“249 > 
<33> 
<207> 
<252> 
<Bt> 
<144> 
<175> 
<B1> 
<125> 
<28> 
<10> 
<184> 
<229> 
<167> 
<107> 
<209> 
<147> 
<62> 
395 
<255> 


PIr 


21807 
“156> 
K161> 
«1477 
<83> 

x234> 


“1935 


3352 DATA1F9,2,167,2,141,251,0,141,187,2, 
13,1997,2,13,251,0,191,251 

SIT DATAO,206,182,2,206,192,2,173,170,2, 
208,3,32,153,200,173,250,0 

334 DATA41,1,240,110,169,12,141,134,2,1& 
0,0,152,18,32,703,196, 173,250 

555 DATAO,41,2,240,66,32,204,200,1697,13, 
141,134,7,162,6,32,203, 176 

336 DATA292,709,750,172,198,2,174,184,2, 
224,35,208,14,173,199,7,73,40 

5337 DATA141,178,2,168,162,33,192,184,2,1 
398,1535,159,4,232,232,1572,24,105 

378 DATAA40,168,224,37,144,241,238,194,2, 
173,27 ,212,41,1,141,253,2,174 

337 DATA232,2,173,233,7,740,3,202,208,5, 
272,224,9, 240,248, 142,232,2 

3540 DATA1L37,233,2,141,247,6,72,31,1978,17 
5,30,208,141,253,0,41,1,240 

341 DATAG,77,253,0,45,170,2,240,26,173,2 
52,0,174,170,2,208,4,41 

542 DATAZ248,240,5,76,244,196,162,0,142,1 
79,2,142,160,2,76,67,195,173 

343 DATA253,0,45,160,2,708,5,238,160,2,7 
6,67,195,173,179, 2,208, 226 

344 DATA173,253,0,77,21,2098,7,1,141,21,2 
08,32,204, 197,32, 190,1977,169 

345 DATA1,131,21,208,1941,1798,2,206,131,7 
„174,131,7,224,48,209,3,76 

345 DATA191,198,1597,200,141,249,7,7205,1B 
3,2,2709,66,167,255,77,21,208,45 

3547 DATAZ7 ,212,45,251,0,141,255,0,159,2, 
162,0,44,255,0,240,31,13 

348 DATA15,208,141,18,208,13,721,208,141, 
21,208,169,63,157,2,209,173,27 

249 DATA212,45,192,2,9,30,141,193,2, 76,1 
38,195,10,252,232,201,128,208 

350 DATA213,167,1,141,193,2,169,64,44,21 
‚208 ,240,47,173,250,0,41,1 

351 DATA240,40,1735,169,2,174,169,2,240,4 
‚10,76,165,175,74,141,169,2 

3527 DATAS1,62,208,11,175,168,2,73,1,141, 
168,2, 76,192,195,169,141,74 

353 DATAL09,159,2,141,13,208,169, 128,44, 
21,208,240,33,173,46,208,75,8 

354 DATA141,46,208,173,14,208,24,105,3,2 
05,19,208,144,6,141,14,208,76 

355 DATA232,195,17%,21,708,41,127,141,21 
‚209,169,8,44,0,220,209, 14,173 

356 DATAO,208,24,105,1,205,0,208,144,3,1 
41,0,208,169,4,44,0,220 

357 DATA208,13,173,0,208,56,233,1,201,24 
‚144,3,141,0,2098,173,179,2 

358 DATA201,32,208,12,174,177,2,240,48,1 
67,1,44,0,220,208,47,41,1 

357 DATA240,31,173,179,2,74,230,12,141,1 
77,2,24,105,135,141,1,7208,76 

S60 DATABS,196,162,0,192,177,2,169,32,14 
1,179,2,76,03,176,238,179,2 

361 DATA76,83,176,238,1,208,2538,1,208,16 
7,16,44,0,220,708,34, 167,178 

362 DATA44,21,708,208,27,173,0,2089,201,2 
20,176,20,24,105,489,141,14,208 

563 DATAI74,1,208,142,15,208,169,17B,13, 
21,208,141,21,208,173,31,208,41 

3694 DATA1,240,7,184,177,2,206,1,208,76,1 
43,176,229,1,208,173,200,2 

365 DATNA41,7,24,109,203,2,141,203,2,162, 
0,32,217,176,173,200,2,41 

366 DATAB,24,109,203,2,162,0,1432,200,2,3 
2,217,196,160,0,182,5,189 

367 BATA202,2,24,105,48,153,131,7,200,70 


Compure mi 





<A> 


“a7? 


“Ra27> 


<194> 


xi> 


<B7> 


<191> 


<108> 


<119> 


<151> 


<169> 


<1797 


£173> 


<B4> 


x«71> 


<175> 


«10> 


2305 


<202> 


<29> 


<1735> 
137> 
ah: 

x180> 
S39> 

x144> 
<245> 
x214> 


x51> 


“1377 
<126> 


x167> 





ee 





10/86 


2,209,243,172,248,2,32,22,198 
368 DATA76,17,194,32,240,255, 169,32,3 
10,205,169,20,32,210, 259,96, 201 
367 RATA10, 144,251 56,233, 10,157,203,2,1 
89,7204,2,24,105,1,157,203,2 
370 DATA?2A,3,240,232,232,7&,217,196,173 
‚21,208,41,127,141,21,208,173,170 
371 DATA2,708,25,169,32,168,198,173,253, 
0,41,120,240,24,201 ,32, 208,3 
372 DATA7&,150,197,201,15,208,16,75,101, 
197,41,1,208,27,228,170,2,32 
373 DATA175,178,76,250,194,141,170,2,200 
»74,208,252,169,210,152,247,7,140 
374 DATA200,2,76,250,194,173,170,2,73,28 
4,45,21,208,141,21,208,45,16 
375 DATAZOS,141,16,208,172,170,2,192,9,2 
40,45,192,33,208,3,32,170,197 
376 DATA162,705,32,158,198,152,0,147,170 
+2, 76,250,194,160,207,140, 252,7 
377 DATA174,14,208,142,8,200,174,15,208, 
142,7,208,162,6,142,700,2,76 
378 DATA250,194,162,203,173,23,2009,41,8, 
201,9,208,2,152,209,73,0,141 
377 DATA2I,208,142,251,7,76,88,197,169,3 
2,44 ,29,208,208,7,13,29,208 
390 DATA141,27,208,76,177,197,44,25,208, 
209,14,13,23,208,141,23,209,160 
281 DATAS,32,246,197,76,250,194,160,0,75 
‚39,197,167,67,141,79,209,167 
382 DATAZ23,45,23,208, 141 ,25,208,96,160, 
0,140,4,212,162,240,142,6,212 _ 
393 DATA162,50,160,53,190,4,212,192,39,2 
08,147,1,712,138,160,10,372,2 
284 DATALP9,170,232,224,99 "in, 238,169,2 
10,141,249,7, 160,25, 140,254,0,162 
385 DATAZO,142,1,212,162,129,142,4,212,1 
67,16,172,254,0,32,22,198,170 
ZB& DATA202,139,141,24,212,209,242, 96,16 
0,255,167,255, 202,208, 253,136,208,248 
297 DATA9&,1672,0,160,1,169,4,141,254,0,1 
2,10,168,232,232,201,129,240 
389 DATAG2,44,21,208,240,237,201,64,240, 
14,201,16, 208, 13,17%, 252,7,201 
397 DATA2O4,240 ‚5,238,254 ,0,238, 254 ,0,18 
9,0,208,141,255,0,56,237, 254 
390 DATAO,ZOS, 255,0, 178,5,157,0,208, 76, 3 
5,198,72,152,77,21,208,13 
3791 DATAI&,208, 181. 21,208 „41,4,240,21,17 
3,21,208,41,16,240, 25,152,73 
392 DATAZSS,45,16,208,141,16,208,104,76, 
90,178,96,173,250,7 73,26, 181 
393 DATA250,7, 7&,111,198, 169, 204,141 ,252 
‚7,169,180,141,9, 208,76,118,198 
374 DATALE>, 200,138,157 +48,7,232,2724,210 
1209, 247,96, 162,20,169,10,76,179 
395 DATA198,162,220,169,5,142,1.212 
24 ,212,169,127,141,4,212,76,162 
376 DATA255,169,6,157,144,217,202,208,25 
0,160,19,169,160,153,154,5,153,174 
377 DATAS, 153,234, 5,136, 208, 244,140,2 1,2 
08,140,178,0,162,2, iB5, 11 „201 
378 Dalnıs7, 194, 5,192, 5, 176,9 ,153, 68,6,1 
85,20,201,153,62, 6,200 ,232 
399 DAraz 32.224,20 ‚2098,230,169,53,141,74 
‚6,169,16,44,0,220,240,14,173 
300 DATA177,0,201,64,240,242,201,39,208, 
3,32,226, 252,76,3.192, 96,162 
401 DATAO,142,254,0,142,285,0,185 „248,7, 
170,173,254,0,24,105,64,141 
AO2 DATA2ZS4,O, 173,259, 0,105,0,141,255,0, 
202,208,236, 105,29, 208, 141,20% 
A023 DATAZ,169,147,32, 210 „255,167 128,141 
‚250,0,169,216,141,251,0,169,128 
404 DATALA1,252,0,167,4,141,255, 0,160,3, 
1940,171,2,182,0,142,189,2 
405 DATA76,190,199,145,750,200,145,250,1 
36,169,150,145,252,200,1953,252,238, 109 


‚141, 





<1443> 


ir1> 
<1&47> 
S297> 
x148> 
“29r 


1895 


5 
m 
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<103> 
295 
<37> 


297> 


<116> 
S2IE> 
<207 > 
<2354> 
A537 
x190> 
40> 
“172> 


«212> 


SEIFE 


<215> 


296: 


147> 


<200> 


<34#> 


“207 > 


x169F> 


<i33> 


x116> 





406 DATN2,238;189,2,173,193,2,74,141,192 
,2,74,209,67,232,256,191,2 

407 DATA20B,54,224, 63,208,1,96,228, 191,2 
‚?38,191,2,238,191,2,173,18% 

409 DATA2,24,105 ‚18,201, 240,208,27,160,2 
54,200, 200, 185, 250,0,24,105,240 

407 DATAISIS,250,0,185,2751,0,1053,0,153,75 
1,0,192,0,240,233,167,0,141 

Aio DATA1B9,7,169.128,141,192,2,169,1972, 
141,193,2,45,192,2,141,192,2 

413 DATAL39,168,177,254,160,0,45,193,2,2 
40,153,205,192,2,240,7,176,8 

412 DATA160,7,76,232,199,172,202,2,152,1 
72,197,2,76,101,199,160,0,162 

413 DATAG,190,250,0,160,11,140,211,0,232 
„442,214,0,32,16,229,172,250 

414 DATAO,185,219,200,32,210,755,200,152 
„31,15,208,244,1972,48,144,222,96 

A1S DATA238, 164 ,2,208,14,162,0,199,26 ,20 
1,240,91,32,210,255,232,76,29 

416 DATA200, 162,7,142,211,0,162,3,142,21 
4,0,32,16,229,162,0,189,170 

417 DATA201,32,210,255,232,274,6,209,245 
„174,164,2,224,2,240,15,176,26 

418 DATAIGI,176,141,250,0,169,201,191,25 
1,0,76,112,200,16%7, 188,141,250,0 

419 DATAL69,701,141,251,0,76,112,200,16% 
‚200,141,250,0,169,201,141,251,0 

420 DATA160,0,177,250,240,7,32,210,255,2 
00,76,114,200,162,6,142, 214,0 

421 DATA169,0,141,7211,0,32,16,229,162,0, 
189,210,201,240,7,37,210,755 

422 DATA232,76,140,200,76,239,231,2,208, 
20,162,0,142,4,212,162,245,142 

423 DATA2S1,2,238,250,2,208,5,162,244,14 
2,230,2,169,15,141,24,212,160 

424 DATASZ,140,5,212,140,5,212,174,230,2 
„187,220,1,141,1,212,140,4 

425 DATA212,96,160,39,1895,32,50,89,191,5 
2,153,32,50, 156, 208,244, 96,176 

426 DATA105,32,32,32,32,32,32,32,32,32,1 
05,174,174,32,32,171,107,117 

427 DATAL74,123,176,105,117,105,174,174, 
174,125,125,117,105,3%,32,106,189,173 
428 DATAF3,32,106,107,106,177,173,173,17 
Z,106,92,147,149,137,133,140, 133,142 

429 DATA132,133,142,133,149,133,147,65,7 
4,76,69,73,84,85,78,71,32,63 

A350 DATA1L9,144,93,73,69,32,72,65,66,69,7 
6,32,68,73,67,32,65,85 

431 DATA7O,71,65,66,67,32,68,73,69,83,69 
‚78,32,74,69,69,80,32 

432 DATA68,85,82,67,72,32,69,73,78,697,78 
‚32,87 ,65,76,68,32,90 ; 

433 DATA9S,32,83,54,67,95,69,82,789,46,14 
1,68,65,66,69,73,32,77 

434 DATABS,69,83,83,69,78,32,83,73,69,32 
ı86,69,82,93,67,72,73 

435 DATA69,68,69,78,69,32,72,73,78,6B,69 
‚82,45,32,32,78, 73,83 

436 DATA9F,67,32,85,69,66,69,82,87,75,78 
‚68,69, 78,46,32,87,73 

437 DATA6F,32,90,46 ,66,46,58,0,67,73,78B, 
67,798,32,72,79,76,90 

438 DATAS3,84.65,80,90,69,76,0,70,697,76, 
83,66,82,79,67, 75,69 

439 DATA7O,0,697,76,69,70,65,78,84,69,78, 
0,18,84,65,85,84,69 

440 091017,157,157,157,68,82,85,69,67,75 
‚67,78,146,0,120,163,49,141 

431 DATA1,0,169,0,141,98,0,141,100,0,163 
»209,141,99,0,169,56,141 

342 DATALOL,0,162,15,160,0,177,79,145,10 

0,200,208,249,239,997,0,239,101 

443 DATAO,202,208,740,159,55,141,1,0,169 
31,141 ,24,208,89,167,0,189 

444 DATA74,202,157,224,56,232,224,18,208 





Compute mi 


programme 


214> 
S1FR> 
x117> 


a22> 


£79> 
“1705 
<213> 
<5ö1> 
2107> 
<132> 
<153> 
<125> 
<i> 
<5a> 
<167> 
<212> 
«33 
<70> 
<221> 
<255> 
<147> 
<37> 


“57> 


<190> 
S2356b> 
«231> 
246> 
x2> 
<2409> 
SsıB2> 
22n> 
<192> 
<91> 
<4R> 
>79 


<180> 





werkstatt 


‚245,189,94,202,157,248,56,232,224 

445 DATA64,208,245,169,0,141,250,0, 169,5 
0,141,251,0,169, 158,141 ,252,0 

446 DATA169,202,141,253,0,150,0,162,4,17 
7,252,145,250,200,208,249, 238,251 

447 DATAO,238,253,0,202,208 ‚240 ,96,248,2 
48,0,224,224,0,0,0,24,24 

248 DATA24 ,24,24,0,040,1,1,1,347,1557,15 
‚128,129,128,192 

449 DATA224,240,224,240 ,15,31,63,31,63,6 
3,127,127,240,249,757,248, 252,252 

450 DATA2SA, 254 ,255,255,255,127,&,1y1,1, 
255,255, 255,754,1972,128,128,128 

451 DATA0,0,0,0,0,0,3,240,0,1548,0,15,B, 
0,51,2,0 

452 DATA51,2,0,195,0,128,195,0,128,170,1 
70 ,160,1697,85,104,150,170,168 

453 DATA170,170,171,171,170,235,175,235, 
251,47,235,251,13,195,112,13,195,112 

453 DATA15,175,240,15,195,240,3,0,192,17 
3,31, 255,248,31,255,248,15,255 

455 DATA248, 15,255, 240,15,255,224,7,255, 
224,3,255,224,1,255,224,0,255 

456 DATA240,0,255,240,0,255,240,1,255,24 
0,3,255,224,1,255,192,0,255 

457 DATA128,0,63,0,0,53,0,0,28,0,0,0,0,0 
‚0,0,0,0 

459: DATAO,Z40,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0 

459 DATAO,0,0,0,0,0,0,0,0,40,0,0,150,0,0 
‚150,0,0 

460 DATA150,0,72, 170,128,9,105,96,9,105,9 
6,7,105,96,42,170,168, 150 

461 DATA150, 150,150, 150,150,150,150, 150, 
40,49,40,32,0,0,192,0,0,192 

462 DATAO,0,192,3,0,192,3,0,192,3,192,19 
2,3,204,192,3,207,192 

463 DATAS,255,192,3,255,192,3,255,192,3, 
255,192,3,295,192,3,255,192 


354 DATA3,255,192,3,2553,192,3,255,192,7, 


255,192,3,255,192,15,255,240 

465 DATAGT,255,2572,170,0,60,0,0,255,0,3, 
251,172,3,250,192,3,250 

465 DATA192,15,250,240,15,250,740,15,250 
„240,15,254,176,15,254,176,63,254 

467 DRTA198,63,254,198,63,254, 199,83, 254 
‚198,63,254, 188,63, 254, 198,63,254 

468 DATA188,63,254,188,63,254,189,63,254 
‚1898,63,254,198,83,0,255,0,3 

469 DATABS, 192,13,895,112,53,105,92,53,17 
0,92,53,170,92,55,170, 92,53 


470 DATAL70,92,53,170,92,53,170,92,53,17 
0,92,53,170,92,13,105,112,13 
471 DATAGS,112,13,85,112,3,85,192,3,85,1 
972,0,215,0,0,215,0,0 
472 DATAS0,0,0,60,0,177,0,0,0,0,0,0,0,0, 
0,0,0,0 
473 DATAO,0,0,0,0,0,0,140,0,10,160,0,42, 
170,160,174,170,158 
474. DATA170,170,170,170,170,170,174,170, 
170,240,170,170,128,170,170,128,170,168 
375 DATA12B,160,40,128,160,40,0,160,40,0 
„1&0,40,0,240,540,197,0,0 
4376 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,9,0,0, 
0,0 
477 DATAO,160,192,0,171,255,192,42,255,2 
40,171,255, 192,160, 192,0,0,0 
478 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0 
475 DATAO,0,0,0,0,0,0,171,0,0,0,0, 0,0,0, 
0,0,0 
480 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0 
451 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,20 
0,0 
482 DATABS,0,2,150,128,2,170,128,10,170, 
150,10,170,160,42,170,168,173 
483 DATAO ,63,255,0,234,171,0,234, 188,12, 
34 ,192,59,170,255, 218, 170,171 
Asa DATASF,170,255,12,234,192,0, 254,188, 
0,234,171,0,63,255,0,0,0 
485 DATAO.O, 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0 
A486 DATAO,0,0,0,0,0,0,0,0,151,0,0,0,48,0 
„240,50,3 
487 DATA192,55,3,204,55,13,204,53,205,19 
2,13,119,0,13,87,0,3,85 
A889 DATA195,0,215,12,0,213,240,63,85,192 
‚15,87,0,0,220,0,0,215 
489 DATAO,3,127,3,5,207,0,15,15,0,15,3,0 
„38,0,0,48,0 
490 DATAO,L52,1,0,64,5,55,80,4,65,16,2,0 
‚128,2,0,128,2 
491 DATAO,128,2,0,128,17,193,48,15,195,2 
40,3,0,192 
ENDE DES LISTINGS 


ır% 








| Sprite Turn und Character Switch: : Zwei nü ützliche ‚ Routinen 


Sprite Turn-Demo 


Problemlösungen an einem C-64 
waren die Vorreiter für die beiden 
Maschinensprachen-Uhilitys. 


Bei der 1. Routine handelt es sich 


um ein Utility, weiches ab 49152 
($CEBZ) im Speicher liegt, und so- 
mit keinen Basicspeicher ver- 
brauche. Die Routine wird nach 
dem Einpoken mit SYS 49152 {CR} 
gestartet. Nach dem Aufruf bewirkt 
ein Drücken der 'I’Taste ein Um 


\ 


schalten des Zeichensatzes. Dieses 
geschieht im Klein-, wie auch im 
Großschriftmodus. Der Zeichen- 
satz, zu dem umgeschaltet werden 
kann, liegt ab 16384 im Speicher. 
Ein weiterer Druck auf die ’’ Taste 
bewirkt ein Zurückschalten auf den 
alten Zeichensatz. Dieses kann nun 
zur Anwendung kommen, z.B. in 
Textverarbeitungsprogrammen, wo 
schnell ein weiterer Zeichensatz zu- 
geschaltet. werden muß, 

Bei dem 2. Programm handelt es 


sich um Sprite Turn, welches es er- 
möglicht einen Sprite schnell zu 
drehen, Dieses kommt sehr häufig 
in Spielen vor, wenn ein Richtungs- 
wechsel vollzogen werden muß. Es 
brauch also nicht mehr mühselig 
ein zweiter Sprite entwickelt zu 
werden, der nie ganz so aussieht 


wie der Erste. Nach dem Einpoken 
ab 49152 ($C38) in den Speicher 
kann ’Sprite Turn’mit SYS 49152, 
Block (CR) gestartet werden. Wo- 
bei Block den Spriteblock angibt, in 
dem sich der zu drehende Sprite be- 
finder. 


r&64 LISTING MIT CHECKSUMMEN IE v1.0) 


10 REM es ROH 


20 REM * 


Compute mib 


CHARAKTER SWITEH * 








10/86 


REM * |. lim * 
40 REM # {6} 1985 BY * 
SO REM * JOERG TUTTAS * 
60 REM * * 
70 REM 
80 x 


70 FOR T=-49157 TO 49370: RERD 0:5=5+Q0 
106 POKE T,G:NEXT 
110 IF 5<{>270%7 THEN PRINT"FEHLERISPACEI 
IN{SPACEIDATAS"SSTOP 
170 2 
1000 DATA120,185, 1,141, 60, 3, 41,251,1 
53, 1,169, 0,133,250,169,208,133 
1910 DATAZS1,167, 0,155,252,169, 48,133, 
253,162, 0,1540, 0,177,250,145,252 
1020 DATAZOO, 240, 3, 76, 30,192,232,230, 
251,230, 253, 224, 16,208, 235 „173, 60 
1030 DATA 3,133, 1,173, 24,208, 41,241, 
7, 12,141, 24 ,208,169, 76,141, 20 
1040 DATA 3,169,192,141, 21, 3, 88, 96,1 
65,203,201, 54,240, 53, 76, 497,234 
1050 DATA1L73, 24, 208, i41, 65, 3,173, 61, 
3,201, 1,240, a5, 1659, 0,135, 254 
1080 DATAISZ, 232, 169, 64,133,255,169, 48 
,133,253,169, 1, 14, 61, 3, 162, 6 
19070 DATA1CO, 0,177,254,145, 232, 200,240, 
3, 76,121, 192, 2372, 230, 233,230, 255 
1080 DATAZ2a, 16, 208, 235; 76 ,209,192,167 
„0,141, &l, 3,169, 0,132,250,13% 
1070 DATA254,169, 49,133,255,169,208,133 
„251,165, 1,391, 50, 3, 41,291,133 
1100 DATA 1,162, 0,160, 0,177,250,145,25 
4,200,240, 5, 75,175,192,232,230 
1110 DATA251,730,255,2724, 16,208,235,173 
‚ 60, 3,1335,.1,1735, 24, 2OB, 41, 241 
1120 DATA 5, 12, 141, 24, 208, 173, 63,4 3,8 
#1, 24,208, 76, 49,234, 62 
ENDE DES LISTINGS 





664 LISTING MIT CHECKSUMMEN {BE 1.0) 


10. REM BB 


20 REM * CHARAKTER SWITCH DEMO * 
30 REM #&_ een * 
40 REM * (C) 1986 BY * 
50 REM + JDERB TUTTAS * 
60 REM * * 


70 REM ss EEE ER 


80 POKE 53291 ,0:POKE 53280 ,0:PRENT"tHHIT 


E CLEARY"CHRF (14 
79 PRINT'"{DOHN SPACE} ITTEISPACEIWARTEN, 
POEETSPACEIIJETZTTSPAGEI— I _TSPACEF BO. | - |" 














100 PRINT"{DOHN SPACEIABTSPACEFAF1SZTSPA 

















CEFLISPACEIF-OGOLSPACEFYISPACEIIN{SPACE 
DEN{SPACEIWPEICHER" 

110 FOR T=49152 TO 49376:READ U: S=5+0 
120 POKE T,O:NEXT 

1356 IF 57 >27037 THEN PRINT"FEHLERTSPACEI 
IN{SPACEIDATAS"LSTOP 

140 

150 FRINT"ICLEARY" 

160 PRINT" {DOHN SPACE3 ANSEHL IESSENDESPAC 
EILESELSPACEHICHLSPACEIEINENCSPACEI EICH 
EN- rn 

170 PRINT" TDOSHN SPACEISATZXSPACEFEINISPA 
CE} ,DER{SPACEINARTUERL ICH 

190. PRINT" {DOHN SPACEFALUCHTSPACE}FREICSP 

















ACEFPRÜGRAMMIERBAR{SPACEIWAERE, 





<2149> 
<ız> 

<117> 
“1575 
<245> 
<139> 
<203> 
<193> 


<50> 
<178> 


“144> 
se> 
+«159> 
<13> 
<16> 
<207> 
<157> 
x37> 


<92> 


«185> 
s143> 
258? 
x22> 

x117> 
<1377> 
<245> 


<75> 
<> 
<44> 
<2235> 
<173> 
<70> 
<199> 
21906> 
<22355> 
<242> 


{19B> 











170 PRINT" CDOHN SPACE3ITERTSPACE} 4EICHENS 


ATZISPAGEILIEGTCSPACEIABTSPACEI LA3AA SPA 











GEFLIND" 


Z09 PRINT"{DOHH SPACEFBELEGT{SPALEISIZIS 





PACEI IVTESTSPATCEI {| ROSSCHRIFTF-LEIN-" 
210 PRINT"{DIHN SPACE}SCHRIFT) 

220 GOSUB 340 

2309 DATA1L20,1&65, 1,141, 60, 3, 41,251,13 
5, 1,16%, 0,135, 250, 157,208,133 

240 Darapsı ‚169, D, 133, 252, 169, 49,133,2 
55,162, 0, 160, O, 177, 250, 145,252 

250 DATA200,240, 5, 76, 30,192, 232,250,2 
51,230,255,224, 16,209,235,175, 60 

260 DATA 3,1335, 1,175, 24,208, 41,241, 9 
„ 12,143, 24,208,1659, 76,141, 20 

270 DATA 3,169,1972,141, 21, 3, 68, 96,16 
5,203,201, 54,240, 3, 756, 49,234 

280 DATA1L73, 24,208,141, 45, 3,173, &1, 
3,201, 1,240, 453,169, 0,133,254 

270 DATA133,252,169, 64,133,255,169, A8, 
133,253,169, 1,141, &1, 3,162, O 

5009 DATA1lA0O, 0,177,254,145,252,200,240, 
5, 76,121,192,232,2539,253, 230,255 

319 DATARZ24, 16,209,235, 76,209,192,169, 
0,141, 61, 3,1549, 0,133,250,133 

320 DATA254,189, 48,133,255,169,208,133, 
31,165, 1,141, 50, 5, 41,251,153 

330 DATA 1,162, 0,160, 0,177,250,145,254 
‚200,240, 3, 76,175,192,232,230 

340 BATAZS1,230,255,224, 16,208,235,173, 
60, 3,135, 1,175, 24,208, 41,241 

50 DATA 9, 12,141, 24,208,173, 63, 53,14 
i, 24,208, 76, 49,234, 62 

351 ® 

352 REM 

3935 3 

Ss60 FOR T=0 TO S40:READ O:POKE 14384+T,8 
sNEXT 

3565 FRINT"{CLEAR}"ISYS 49157 

766 PRINT"{DOHN2 SPACEINUN{SPACEIWIRDISP 

ACEIBEITISPACEIVEDEM{ISPACEIDRUECKEN{SPACE 

>3DERISPACEFTASTE” 

567 PRINT"£DOHN SPACEY'* "ISPACEIDERISPAC 

E+ZEIEHENSATZ{SPACEFUMGESCHÄLTET." 

368 PRINT" {DOAN SPACEISOMIT{SPACEIBIETET 
TSPACEYSICHTSPACEFDEMTSPACEHANWENDER SPA 

CEIDIE" 

3657 PRINT" CDOHN SPACEIMOBEBSLICHKEITISPACE 

IZWEITSPACEIZEICHENSAETZETSPACEIIM" 

370 PRINT" {DOHN SPACEIIMISPACEISPEICHERTE 

SPACEIDESTSPACEITHTSPAGEISATSPACE} ZUXSPAC 

EIHABEN{ZSPACEIUNDTSFACEI" 

571 PRINT"CDOHN SPACEIDIESETSPACEINACHTS 

PACEYBELTEBEN{SPACEIUMZUSCHALTEN. * 

372 END 

377 DATA152,95,138,94,169,86,147,106,60, 

1268,102,125,230,7230,747,0,124,102 

SEO DATA1I18,124,246,2530, 252, 0,650,110,224 
‚224, 224, 238, 124, 0,128, 110, 103, 103 

370 DATA>231, 238 ‚252, O, 127, 97, 104, 120,104 

‚99,127,0,127,99,104,120,104.,224 

400 DATA240,0,60,110,224,238,230,230, 124 

‚0,102,102,119,126,118,230,247,0 

#10 DATA126,24,294,24,56,60,126,0,62,12,1 

2,14,14,110,60,0,102,110,120,112 

426 DATAZ49,239,230,0,1172,96,96,96,224 ,2 

30,254,0,97,119,127,107,99,231,247 

450 DATAO,102,118,126,126,110,230,247,0, 

60,102 „231, 23 1, 221, 102, &9,0,124,118 

440 DATA1O2 ‚124, Fa,nZ2H, 240, ö, 80, 102,231, 

231,126,61,15,0,124,119,102,124,120 

450 DATA23B,230,0,62,100,96,40,&, 102,252 

‚0,255,217,24,24,24,56,60,0,102,102 

440 DATALOZ, 102,2350,246,252,0,102,102,10 

2,102,296,252,120,0,997,99,97,107 

479 DATA255,247,227,0,231,102,60,24,60,1 

02,2%31,0,102,102,126,50,24,56,50 





DATAS DES ZEICHENSATFES 



































Sompute mi 


programme 


<100> 
<168> 


<240> 
saA7> 


<1397> 
<i> 
<155> 
x10> 
<11> 
x202> 
<132> 
<32> 
<87> 
<174> 
<160> 
“252> 
<248> 
<154> 
2543 
x156> 
s136> 
<135> 


<206> 


x154> 


<77> 


<245> 


<127> 


“243 
«2457 


<b> 
<83> 
<1894> 
x252> 
<109> 
4177> 
“135> 
<173> 
2157 
<130> 


<74> 





programme 


480 DATAO,127,102,12,24,48,102,254,0,62, 
190,754,7243,117,126,62,62,3,7,3,1 
490 DATA0,0,0,0,1566,149,74,176,139,93,50 
‚15,10,21,28,53,28,25,11,14,1,6,9 
500 DATA23,29,48,102,83,0,0,0,0,0,0,0,0, 
0,0,24,108,207 ,52,157,103,0,0,192 
510 DATAF6,160,208,112,184,76,208, 168,52 
‚156,94,172,216,84,136,168,90,224 
520 DATA128,12B,0,62,62,62,62,126,127,25 
5,235, 27,222 ,220,124,60,187,.255,126 
530 DATAO,0,120,192,76,96,48,48,192,75,5 
1,30,28,28,28,28,0,0,0,0,2,55,255 
5430 DATA255,0,0,0,1972, 224 ,255,259,255,0, 
24,24,126,24,24,0,0,56,254,7255,255 
550 DATAZ55,127,255,112,0,0,0,0,24,63,25 
5,255, 255,253,127,191,199,0,0,0,255 
550 DATA237,231,31,7,3,1,1,50,102,110, 11 
8,250,2398,252,0,24,56,120,120,24 
570 DATAL0,60,0,62,102,102,17,48, 102,254 
‚0,124,102,6,29,6,103,127,0,14,30 
580 DATASA, 102,255,5,15,0,126,96,124,30, 
14,102,124,0,60,118,96,124,102,250 
570 DATA252,0,126,102,12,24,24,55,60,0,1 
26,102,102,60,102,230,254,0,124,10B 
600 DATA108,60,12,1089,124,0,255,255,255, 
255,248,240,192,192,255,191,127,236 
6109 DATAZZO,112,0,0,251,254,56,0,0,0,0,0 
‚259,255, 254,238,192,0,0,0,0,126 
620 DATA2SSF, 255, 129,231 ,259,255,223,239, 
123,31,3,1,0,0,24,24,24,24,24,,60 
630 DATA126,102,0,0,192,248,127,248,192, 
0,0,0,3,31,254,31,3,0,0,0,28,62,255 
649 DATAZSS,255,255,0,128,192,2732,255,25 
5,255,255,12R,192,192,224 252,252 
#50 DATA254,255,0,1,15,31,63,255, 255,255 
1,143,7,15,63,127,255,0,0,0,0,9 
650 DATAO,46,255,255,255,231,193, 241,124 
,255,63,237,127,249 241 ,225,231,245 
670 DATA243,28,63,127,255,127,63,14,3,25 
5,2595,255,252,752,0,0,0,24,36,90 
680 DATA177,153,66,36,24,255,207,95,243, 
227 ,199,207,255,2559, 247,241 ,239, 231 
690 DATA241 ,755,255,255 
700 : 

ENDE DES LISTINGS 





C&4 LISTING MIT CHECKSUMMEN {£C 1.0) 


tO REM ee en 
20 REM * SPRITE TURN * 
30 REM - <C) 19796 - 
40 REM * BY * 
50 REM - JOERG TUFTAS - 
&0 REM Reh 
70: 


80 REM START MIT SYS 47152 ,BLOCK 

13 Du ° 

100 FOR T=49152 TO 49314:READ A:5=-5+A: FO 
KE T,A:NEXT 

110 IF 553209757 THEN PRINT" EDOWH2ITTISPA 
CEIFEHLERISPACEFINESPACEIDATAS" STOP 

120 PRINT"PROGRAMM{SPACEFOKISPACEIT "LEN 
BD 

130 >: 
140 REM 
150 ı 
176 DATA 32,253,174, 32,158,19%3,138,1&80, 
0,132,250,132,251, 24, 42,133,250 

180 DATAIGS,251, 42,133,251,165,250,200, 
172, 6,208,240,160, 0,137,252,177 

190 DATAZSG, 141, 61, 3, 32, 72,1972,164,2 
52,200,200,177,250,141, &1, 3,173 








M-PROGRAMM 


<54> 


“32 


x155> 


<93> 


<40> 


“2053 


<B> 


<1979> 


<84> 


“28> 


<171> 


<82> 


«173> 


<200> 


<10> 


x14a4> 
<165> 
<a6> 


“757 
<196r 
<z2a0> 


<123> 
<1389> 
x117> 
“73 

x165> 
:134> 
<12B8> 
<142> 
x148> 


£132> 
<aT> 
«559: 
<ieB> 
<il> 
<208> 
<50> 
<17B> 


<144> 


200 DATA 62, 3,145,250, 32, 92,192,173, 
62, 3,164,252,145,250,200,177,250 
210 DATALA1, 61, 3, 32, 92,192,173, &2, 
3,164 ,252,200,145,250,164, 252,200 
220 DATA200,200,192, 583,144,196, 96,152, 
0,142, 62, 3,169, 7,141, 63, 3 
230 DATA1A0, 0,173, &1, 3, 10,200,204,.& 
3, 3,208,7249, 31,129,201,.128,240 
240 DATA 16,206, 63, 3,232,224, 8,208,23 
0,173, 61, 3, 41,129,208, 23, 94 
250 DATA160, 0,149, 1, 24, 10,200,204, & 
35, 3,208,247, 24,109, 52, 3,141 
260 DATA 62, 5, 76,120,192,258, 62, 3, 7 
5,238 
ENDE DES LISTINGS 


C&4 LISTING MIT CHECKSUMMEN tC V1.0) 


16 REM en 
20 REM * SPRITE TURN DEMO #* 
30 REM - (EC) 1784 BY - 
40 REM * JOERG TUTTAS * 
50 REM He 
&0 3 


70 REM START MIT 5YS 491532, BLOCK 

90 : 

90 POKE 53281,0:POKE 53280,0:PRINT"CHHIT 
E ECLEARY"CHRS (14) 

100 PRINT"{CLEAR BOHN SPACEFI | ITTEISPACEI 
WARTEN; LESETSPACEHJETZTISPACEHWPRITETSPA 
CE} URN" . 

3116 PRINT"{DOHN SPACEIABISPACEIAFLSZISPA 
ECE3CF-000)3 {SPACEY INTSPACEIDENTSPACEI WEI 
CHER{SPACEFUND" - 
120 PRINT"<DOHN SPACEYPÜRESPACEFÄNSCHL. 
NOCH{ISPACEYDENTSPACEF EMBSPRITE{SPACE HAB 
ISPACEIES2" 

130 PRINT”{BGHN SPACE TILOCKISPACEFISFEE 
PACEITIN{SPACEIDENTSPACEHWPEICHER" 

149 FOR T=49157 TO 49514 

1590 READ AD: SU=-5SU+HRD: POKE T,AD 

150 NEXT T 

170 IF SIK> 20957 THEN PRINT"FEHLERTSPAC 















































- EFINTSPAGCEIDATAS" STOP 





180 PRINT"PROGRAMMISPALEINIKE N" 

200 DATA 32,253,174, 32,159,183,130,1&0, 
0,132,250,132,251, 24, 42,133,250 

210 DATA145,251, 42,133,751,165,250,200, 
192, 6,208,240,160, 0,132,252,177 

270 DATA250,141, 61, 3, 32, 92,192,164,2 
52,200,200,177,250,141, &1, 3,173 

230 DATA 62, 3,145,250, 32, 92,192,173, 

62, 3,164, 252,145,250, 200,177,250 

240 DATAI4i, 51, 3, 32, 92.192.173, &2, 

3,164,257,200,145,7250, 164 252,200 

250 DATAZ0O,200,172, 
0,142, 62, 3,169, 7,141, 63, 3 

260 DATA160, 0,173, 51, 3, 10,200,204, & 
3, 3,209,249, 41,128,201,128,240 

270 DATA 18,206, 63, 3,232,224, 8,208,23 
0,173, &1, 3, 44,128,200, 23, 76 

280 DATA1SO, 0,159, 1, 24, 10,200,204, & 
zZ, 2,209,249, 24,109, 62, 3,141 

290 DATA 62, 3, 76,120,192,238, 62, 3, 9 
6,239 

300 FORI=OTVAZ:READREPOKE 832 +4 ER: POKE 
BI6+J ,E:NEXT 

310 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,1298,31,249,128,18,12,129,34 

320 DATA1O,129,226,79,252,253,247,254,253 
‚„119,254,121,247,62,118,2549,220 

330 DATA6&,0,192,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0 


| Sompute mib 


59 ,194,196, 96,162, 


-00> 
*128> 
*193> 
<184> 
«34> 
<232> 


«1373 





1257 
«2237 
“54? 

x107> 
<165> 
<i1Br 
*132> 
<1389> 


<B5> 
<4B> 
«175> 


“725 
<T2> 
<217> 
“enl> 
2027 


377 
<187> 


<sa0> 

<208> 
<174> 
“110> 
x159> 
2253 
x1957> 
<65? 

ARF> 

167 
x176> 
<181> 
x246> 


<Aa7> 
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Das vorliegende Programme rege- 
neriert Disketten, die versehent- 
lich formatiert wurden. Dies geht 
natürlich nur, wenn die Diskette 
ohne ID formatiert wurde, 


664 LISTINGS MIT CHECKSUMMEN {C v1.0) 


15 REM HHHHHSRRRE NN 
20 REM # *. 
30 REM * DIRECTORY-RETTER % 
40 REM * * 
50 REM # GB.JANUAR 1985 * 
60 REM * * 
70 REM # GERD HOEHN * 
E00 REM * * 
90 REM * KATH.-DIEZ-STR. 135 * 


Directory-Retter 


und als File abgespeichert. Mit 
Menüpunkt 2 bringen Sie die Di- 
rectory nun in die endgültige Fas- 


Vergewissern Sie sich, daß sich 
auf der Diskette nicht schon ein 
File mit der Bezeichnung "DR?” 
(”T” bedeutet hier "Pfeil nach 
oben”). Falls doch, können Sie 


<103> 
<117> 
<27> 

<137> 
<105> 
<157> 
<a7> 

<177> 
<253> 


programme _ 


















































über Menüpunkt 3 einen anderen 
Filenamen mit Max. 4 Zeichen 
wählen. Danach wählen Sie aus 
dem Menü den Punkt 1. 


sung. 
Die Daten werden nun ausgelesen 


Ex%k 


100 
110 
120 
130 
140 
150 
160 
170 


REM #* 
REM # 
REM # 
REM # FUER E-44 
REM + - 
REM HBEHBHRHHHHHHHHSSE EEE 


5702 NETPHEN 1 
TEL. 0273871357 


“er%% 


IFLA=1THENLA=0:60T0700 

180 POKESA „100: CLR=M=49341:60SUB1070 
190 N$=""DR”":NC1I=94: N{2)=48: NZ) =B2:NI 
4)=374 


Compute miß 


340 PRINT" {RFSON SPACE ASTEISPACE KISUr FVONLSPACE) WRITELSPAGEI-" <73> 
F3"sG0SUB 570 X1L33> A&O PRINT"{DOHN SPÄCEF| URNTSPACEISCHNELL 
350 PRINT"ICLEAR DOWN SPACEIFACHDEMISPAC XSRABEIUNDTSPACEIEINFACHTSPACEIEINTSPACE 
£3DIESESTSPÄCEINUNTSPACEIBESCHEHENLSPACE 32," <225> 
HISTLSPACEY" <157% 470 FRINT"{DGHN SPACEIFWERITEISPACEHENTST 
Fa0 PRINTV{DOHN SPAGEHCANNESPACEIDER (SPA EHENISPAGEIDER {SPACE IGENAULSPACEYYEITENV 
CEIWPRITE{SFACEIPOSITIONIERTISPALEIU. {SP ER." <isıx 
ACEFEIN-" : <195> 480 PRINT" {DGHN SPACEIKEHRTISPAGEITSTISE 
370 PRINT"{DOHN SPACEIGESCHATETTSPACEINE ACEIALSTSFAGEHDERTSPACEIMISGANBSSPRITE"  <IBB> 
RDEN. TSPACEI" «187> 470 GET AFzIF A$<>"" THEN 560 <127> 
330 PRINT" {ZOHN SPACEITIESESTSPACEIISTIE 500 SY5 49152,13:FOR T=1 10 255:POkE 539 
PAGEFNUNCSPACEFAUCHTSPAGEFGESEHEHENSPAR 48,T <isi> 
E+UNDESPACEIMAN" 2345 510 GET At: IF Atc>"" THEN 5640 <147> 
590 PRINT"{DOHN SPACEFKANNT{SPACEIWERITET S7O0 NEXT <130> 
SPACE3 | URN{SPACEIAUFRUFEN. ERTSPÄACEI WPRI 530 SYS 49152,135:F0OR T=255 TO 1 STEP-I:P 
ai ar 
480 PRINT" (DOHN SPACEILIEGTESPACEJIMESBA Te Ascyu" THEN 560 2123 
CEI ILOCKTSPACEFLSTSPACEISOMIT{SPACEI LAUT h 
ETISPACEIDER" «90% 550 NEXT:GOTB 450 , <198> 
110_PRINT= (Bay. SPA2E>% (erspnce> aurpurce 520 PRINT SELEAR Bann SPACE) nocgescenm 
FACES IHEPACEIAFI1S2 1STSPACEI (—_)." <221> CSPACHT IN. SEHE. <154> 
220 POKE 53298+21 ,1:POKE 55248, 150: POKE 570 PRINT" tDOHN SPACEIHSICHT....." <240> 
53247, 200:POKE 2040,13 <119> 530 FOR T=1 TO 3000:NEXT T:PRINT"CHOHE D 
430 FOR T=1 TO 2000: NEXT:SYS 49152,13 <105> OHN263 ":LIST ’ ’ ET g5> 
440 PRINT"{DOHN RVSON SPACEITASTELSPACE EaNEet Hm um 
RUSBEFFI"TBOBLUR 570 <136> 590 BET As: IF A$="" THEN 590 <58> 
450 PRINT" {CLEAR DOHN SPACE3—S{SPACEIKAN #00 RETURN ‘2327 
N{SPACEFALSOTSPACEINMITISPACEI HLFELSPACE ENDE DES LISTINGS 
50 PRINT"{DOHN2 SPACE4IDIESESTSPACEIPRE, 
Di k = h Di TBPACLEIFORMATIERTISPACEIDIE" <29> 
15 wıi out «a irectory &0 PRINT" {SPACE4IDISKETTELSPACEIOHNETSPA 
CEIDIRELTORY" <27> 
or: . . . 1 70 PRINT" {DOHN: SPACESINAMENSTSPACEIRTSPA 
Vielleicht gibt es jetzt einen dau- können Programme geladen oder CEIIDESPACEIEINGABE SPACE} ?" <194> 
erhaften Schutz vor Raubkopie- abgespeichert werden. Die lieben BO GETAS: IFAS=""THENBO £283> 
rern. Das Programm ”Disk wit- Cracker-Freunde werden aber | 90 IFAS="J"THEN 120 <228> 
hout a Directory” formatiert Dis- mit Sicherheit auch hiervor nicht | 100 IFAS="N"THEN Ne="aunennennene nd 
kerten so, daß das Directory nicht passen , oder doch? $="00":G0T0 140 <129> 
vorhanden ist, Aber dennoch Ex 110 GOTOBO <2477> 
120 INPUT" {DOHN SPACESIDISKETTENNAME" INS <120> 
1350 INPUT" {DOHN SPAGES}ID"3 IS <7> 
E44 LISTING MIT CHECKSUMMEN {0 v1.00 140 OPEN2,8,15:FRINT" {DOHN SPACE4IDISKESE 
PACEIWIRDISPAGEIFORMATIERT" <200> 
10 POKES3280, 172: POKESS281 „,122PRINT"CBLAC 150 PRINT#2,, "NO: "+CHR$ (20) +CHR$ (20) +CHRE 
KK"; CHR& 1142) ; CHR$ (8) <70> (203 +CHRS (0) +CHRS$ (0) #CHRS LO NS" "+1$ <37> 
20 PRINT"{CLEAR DOHN2 SPAGESIDISKCSPACE 160 CLOSE2:PRINT"{DOIHN SPACESIOK. TSPACEI 
WITHOUT{SPACEFALSPACEIDIRECTORYTSPAGEIVE NOCH{SPACEIEINE {SPACEIDISKSPACEI?" <213> 
SPACEI1.O" «2023 170 GETB£: IFB$=""THENL7O <92> 
30 FRINT"{SPACESI 180 IFB$="J"THENZO <37> 
" «1723 190 IFB&="N"THENPRINT"{CLEARF" END <33> 
40 PRINT" {SPACET}HCOPYRIGHTISPACE}LFBACSP 200 GNTR170 <24> 
ACEFBY{SPACEIK. PRELLE" <74> ENDE DES LISTINGS 


<178> 
s246> 
<217> 
<201> 
<237> 
x67> 

<219> 
<134> 
<206> 


»148> 


47 


Programme 


200 PRINT" {CLEARY" 3 Y=35:GOSUBBAO: SYSM,4,4 
sPRINTF"DISFACEITISPACEIRTSPACEIETSPACEIE 
TSPACEFTISPACEFOTSPÄACEIRTISPACEIV{SPACEI- 
ISPACEIRISPACEHETSPACEHTISPACEITISPALEIE 
TSPACEIR" 

210 PRINT"IDOHN2 SPACESILTSPACEI=TSPACE 


VORHANDENE LSPAGEIDIRELTORYISPACEFSICHERN 
rn 






































220 PRINT"{BOHN SPACESFFPTSPACEI=TSPACEIG 
ELDESCHTE TSPACEIDIRECTORYCSPACEHERNEUERN 








Z30 PRINT"{DOHN SPACEIFSTSPACEI=TSPACEIN 
EUER{SPACEINAME SPACE (MAX. TSPACEIATSPAC 
E} ZEICHEN) " 

240 Y=13: 505UBBO40 

259 SYSM, 14,3: PRINT"BITTE{SPACETWÄAEHLENT 
SPACELIFI" 

260 BETAF. 








270 IFA$=" 1" THENSOSUBRF30: GOTOFA40 
280 IFAs$="2" THENGDSUBFOO: GOTOSF7O 
290 IFA$="3"THENF2O 


300 SYSM,14,33PRINT"{SPACEI2Y" 

310 GOTO2509 

320 ı 

3350 REM ===DIR.-BLOECKE LADEN=======2.= 
340 SYSM, 14,3: PRINT"DIRECTORY-BLOECKE {SP 
ACEILESENTSPACEIF" 
350 BOSUB7IO 

60 5 

370 REM ===DIR.-BL,. 
580 SYSM,13,3:PRINT"DIR. -BLOECKE{SRACEIA 
UFISPAGEIDISKCSPACEISCHRETIBENCSPACE}" 
5370 POKE782,101+1:5Y5491899 

400 = 

410 REM ===PROG. 
4209 BYSM, 13,3: PRINT"FILETSPACEF "NE" 
EISUEHENTSPACE LT" 

430 GOSUB7YO: 1=-258341 

440 IFPEEK CD <S>NEDIANDPEEK EI+LI<C>NC2I THE 
N1=-1+32:65010440 

450 IFFEEK CI+Z2I<CSNCFIANDPEEKTI+ DI <>NCAIT 
HENI=1+32:60T0440 

450 T=PEEK (1-2) :5=PEEK(I-1}:BL=PEEK ( 1+25 
} 

A750 ı 

480 REM ===TR./SE7/BL. AUF TR. 18, 1====== 
470 5SYSM,14,3:FRINT"TR/SEC/BLISPACETAUFT 
SPACEFTRISPACEH IB ,OLSPACEFSCHREIBEN{SFAC 
Er" 

500 PRINT#1 , "UI TISPACEIZISPACEFO"IB,O:PRI 
NST#1,"B-PISPALEI2ZTSPACEILBO" 

510 PRINT#2,CHRFETIZCHRE (SI SCHRFKRL) 5 
320 PRINT#1 „"UZISPACEI2TEPACEIO"IB,O:CLO 
SEZ:CLOSEI 

5350 SYSM, 14,3: PRINT"DIRECTORYISPACEIISTE 
SPALEIRAUF<{BSPACEIDISKTSPACEIBESICHERT" 
540 END 

S550 2 

S5ab REM ===TR./SE. /BL. LABEN=====-======- 
570 SYSM,14,3:PRINT"TR/SEC/BLTSPACEIVONG 
SPACEFTRESPACEILS  ,OTSPACEFLESEN{SPACESY" 
s90 GOSUB7YIO 

570 PRINT ,„"WNTSPACEIZISPACEIO”LB,O:PRI 
NT#1,"B-F{SPACEIZISPACEIO" 

&06 FRINT#2,CHRF CIE) SCHRE LI S 

&10 PRINTIH  "U2PISPACEIZISPACEIO"IE,O 

620 SYSM, 14,3:PREINT"NAMEISPACEIATSPACEIA 
UFTSPACEFTRISPAGEI IB, L{SPACEISCHREIBENGS., 
PACE4>" 

6530 SYS497255:PRINT#4 „"B-PISPACEIZISPÄACE) 
or 

640 FORI=07T0255: PRINT#Z „CHR$ (PEEK (25856+ 
III: SNEXT 

650 PRINT#H1 , "UZISPACEIZISPACEIO"S IB, 1 
ud 5 

670 REM ===FILE A LADEN=====--=2+====== 





- *DR” - SUCHEN======= 
SPAC 
































x242> 
<201> 
<b> 


<151> 
<100> 


“243> 
<148> 
<250> 
<BB> 
<107> 
<89> 
<151> 
<123> 
<Bl> 


<184> 
<177> 
<165> 
<5> 


<29> 
x122> 
<205> 
<235> 


<170> 
<b> 


x174> 
<B4> 
<1897> 
«173 
“ä> 
<117> 


<115> 
t-P3 


<170> 


x220> 
<15B8> 
<78> 

<101> 


<362> 
<172> 


2233 
“2235 
x1297> 
<iO> 
<h0> 
<93> 


sa6> 
<Z0B> 


.<71> 


“BO SYSM,14,S5TPRINT"FILEISPACEFATSPACEN 
ESEN{SPACE2OF" 

679 EA=1:LDAD"A" A,1 

700 SYSM,14,3:PRINT"DIRECTORYESPACEIAUFT 
SPACEIDISKISPAGEIRETTENTSPACET}Y" 

710 X=1:605UB779 

720 PRINT#L,"V" 

730 BYSM,„14,33:PRINT"VALIDATECSPACEIWIRDE 
SPACE FRDURCHBGEFUEHRT {SPACESY" 

740 CLOSE?+CLOSEI 

7309 SYSM, 14,3: PRINT"DIREETORYCSPALEITSTE 
SPACE YNELKSPACEIFAUFGEBAUTTSPACES}" 

750 END 

770 3 

780 REM ===LESEN/SCHREIBEN=S===#rS22==2= 
790 POKE2SO,0: POKEZS51,100:5=0 

800 IFX=OTHENPRINT#1 , "UL{SFPACEIZISPACEIO 
"19,5: PRINTAL,"B-P{ISPACEHPISPACEIO": SYSA 
4152 

810 IFX=1THENPRINT#1 ,"B-P{SPACEYIZTSPACEI 
0": 5Y549306: PRINT#1 , "UZ{SPACEIPESPACEIO" 
18,8 

820 S=PEEK (829) : IFPEEK (B28) < >OTHENI=I+1: 
GUTOBOO j 

830 RETURN 

840 2 " 

850 REM ===BILDSCHIRM-MASKE === === 
860 5YSM,„Y,OSPRINT"ISPACEZ —— 


[0 
) 


870 PRINT" ISPACE2} |LSPACEZZ> I" 

ABO PRINTTISBACEZ —n—— 
‚u 

870 RETURN 

990: 

710 REM ===NEUER NAMEN====-=--=zmeseoe=on 

920 SYSM,14,3:PRINT"{SPACEIEI"SBVYSM, 14,3 

= INPUTNE#:= NS=LEFT$ (N$,4) 

9730 J=47200 

740 FORI=1T04:NCDI=ASC (MIDS(N$, 1,12) EPOK 

EI„NCIY=J=I+5: NEXT 

3750 E0OT0250 























Fa0 = 
970 REM ===FILE ERÜEFFNEN=========-=-sce= 
780 GPEN1,8,15:0PEN2,8,2, "#" 

990 RETURN 

1000 a 

1010 REM ===MASCH, -ROUTINENS=rr2=2 = =0en 


1020 FORJ=OTDZO4:READATFÜKE49 1524] ,ArFF= 
FF+R:NEXT 
1030 IFFF< >25537THENPRINT" CCLEARIFEHLERC 
SPACE} IN{SPACEIDATASTSPACEN! 1 I "3END 
1040 RETURN 
1050 DATA140,0,169,8,32,9,237,169,98,32, 
179,237 ,32,19,238,145.250,200 
1060 DATA2OR, 248,177,250,141,60,3,160,1, 
177,250,141,61,3,160,0,230,251 
1670 DATAF6,169,64,141,60,3,169,58, 141,6 
1,3,167,94,1431,62,3,169,68,141,63 
1089 DATAZ,169,82,141,64,3,169,94,141,65 
,5,169,6,133,183,167,50,133,187 
1090 DATA169,3,133,189,169,0,133,168,162 
»0,169,100,133,169,169,8,133 
1100 DATA184,133,185,133,186,169,150,32, 
216,255,96,169,0,160,0,153,0,101 
1110 DATA200,209,250,169,130,141,2,101,1 
73,180,100,141,3,101,173,181,100 
1120 DATA141,4,101,169,55,141,5,101,169, 
160,160,0,153,5,101,200,192,15 
1130 DATA2OB,248,173,182,100,141,30,101, 
76,150,0,169,09,32,12,237,167,99 
1140 DATA32,185,237,177,250,32,2214237,2 
00,208, 248,177,250,141,60,2,160,1 
1150 DATA177,250,141,61,3,230,251,96,32, 
253,174,32,235,193,124,211,165 
1160 DATA20,133,214,32,16,229,96 

ENDE DES LISTINGS 





Compuhe mib 


<134> 
“1777 


x76> 
x25> 
<82> 


<227> 
<15> 


<174> 
xsi22> 
x65> 


<66> 
<224> 


“1687 


<2h> 
<18> 
<2077 
<133> 
<95> 


<195> 
<50> 


«22357 
s11> 
<19735> 
<41> 


239} 
<al> 


«195> 
EI=F 
<a53> 
<b> 
<243> 
“1tl> 
<37F 
<169F> 
«120> 


<1777> 
x162> 


<87> 
<230> 
<36> 
<58> 
<115> 
<iBa> 
“3? 
<215> 
<175> 
<95> 


sa7> 
<1265> 


10/86 


programme. 





Leben und einen Bonus. Hat man 


| Schützt die Fußgänger! 


Zu Beginn dauert es etwa fünf Se- 
kunden, bis das Titelbild er- 
scheint. Nach drücken der Feuer- 
taste erscheint die HALL OF FA- 
ME, wonach das Spielield aufge- 
baut wird. Das Programm warter 


nun auf einen Tastendruck, bevor 
es nun richtig losgeht, 


Bei Panicar muß man einen Park 


“ durchfahren und dabei alle Felder 


passieren, die durch ein blinken 


des Karo gekenntzeichnet sind. 
Man muß immer auf de Staße 
bleiben und darf auch keinen der 
Fußgänger rammen, was zum 
Verlust eines Lebens führt. Von 
Level zu Leveles gibt dreisteigt 
die Zahl der Fußgänger, sowie ıh- 
re Geschwindigkeit. Nach jeder 
Runde bekommt man ein extra 


alle Leben verloren, bzw. die drei 
Runden geschafft, ist das Spiel zu 
Ende. Je nach Punktzahl kommt 
man in die TOP-TEN - ...oder 


auch nicht. 


Wichtig: Panicar ist NUR mit 
Joystick zu spielen. 


















19000 ° + me nn 3140 PEN pe:FÜR te=1 TO LENtret):LUCA 
.—_— oo onenmimiennemuin ln TE xe+tte,ye: PRINT MIDF(ret,te,1}; 
u... 1150 SOUND 1,50-2*te,3,4:F0OR l=-1 T0 8 
1410' PANITCAR fe} |OSNEXT 1,te,zesWHILE JOYtOI<>LöTsWEND 
1936 by SUPRA-5S 05 |1140 BORDER O:INK 0,0:FÜOR I=0 TO 300 
FT STEP 2:MOVE O,1:DRAUR 6409 ,0,0:NEXT 
1020 ° +4 meer 1170 DATA 2,9,4,"$ by",3,5,4, "SUPRA-S 
mama m GET" 

PRPRFEEER 31150 DATA 12,1,10,"You've to pass all 
1030 ° “,12,2,12,"gleaming fields," 

1040 MEMORY &7FFF:CALL &EB42: POKE EBD 1170 DATA 12,2,14, "but: Be careful-", 


12,1,16,"yaou mustn’t crash!" 

1209 DATA 2,5,20,"500d luck!" 20,22, 
"Fress FIRE for START" 

1210 RANDDMIZE TIME=PAPER 5=:CL53 INK oO 
‚1:G0SUB 2400: 60SUB 27430 

1220 SYMBOL 255,60,124,255,255,126:18Y 
MEOL; 254,14,9,9,8,9,8,8,8 

1730 SYMBOL. 253,0,0,126,66,126,254,17 
9,1325 SYMBOL 250,0,16,56,129,55,16 
1240 RESTORE 1250 . 

1250 FOR n=0 TO A8:READ i$:POKE A000 
tn, ,VALÜ"R'+HiSI NEXT 

1260 DATA 33,30,30,f2,1,02,9,30,09,2a 
ı35,20,00,75,6b ,3e,fa,cd,5a,hb,r9,21, 
a,a0 


EE,&C9=ECALL SBEOZ:INK 15,15: INK 14,4, 
8 


1050 DEFINT a-z:DEF FNsee ix ‚y3=TESt tx 
*32-16,408-y#16) 
1060 GPENIN"topten2.fil":FOR I=1 TO 1 
0: INPUT#F, 381115 INPUT#7,K(1) =NEXTSCLO 
SEIN 
1070 DIM #141,263 „vt5) „w(5) „v1l5) „wit 
5) ,adt9 ri (9) nd 
1080 INK %.1:INK 13,1:MODE O:PAPER 0: 
ELS-PEN 13:L0CATE 1,257 PRINT"PANICAR” 
1070 FOR 1=0 TR 412 STEP 4: FOR m=2 TO 
16 STEP 2:IF TEST(L,m)<>13 THEN 1110 
1100 PLOT 2#1+100,2#m+32,1rPLOTR 4,0, 
1:PLOTR 0,+2,1=PLOIR -4,0,1 
1180 NEXF m,ZzFOR 1=7 TO 1 STEP-15S0U 
ND 1,0,25,1,,,3:NEXT:INK 1,28 
1120 FÜR 1=1 TD Z1rLOCATE 20,25: PRINT 
# "ZNEXTELÜCATE 1,4:PRINT SPACES (18); 
1120 FOR 1=1 TD FF: NEXTEINK 13,224 R 
"STORE 1170:FOR ze=i1 TO S:READ pe,xe,y 


4,7,30,09,1,0,40,11,0,40,21,0,c0,ed,b 
0,c#9 

12B0 RESTORE 1300 

1290 FOR n=0 TO S&s:READ iFTPOKE LALOO 
un, VALLE ENEXT 


1270 DATA 7e,3c ,30.,77,3@,1,32,30,20,0° 


e,res 
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1390 DATA cd,78,bb,25,2d,cd,ia,be,16, 





 Compute mi 


B,1,30,81,3,77,3,1e,3,23,3,77,3,id,c2 
1Z 

Tr 

33519 DATA a1,c5,1,4,7,9,€21,15,02,d,a 
1,c# 

1320 RESTORE 1330:FOR n=9 TO &S:READ 
E:FOKE SAISON, ITNERT 

1530 DATA 255,0,0,259,258,0,0,221,258 
,16,32,221,170,16,32,85,170, 16,32,85, 
238 

1340 DATA 16,32,221,238,0,0,221,255,0 
„0,255 

1550 DATA 255,252,253,255, 253,252 ,2653 
‚2534, 255, 174,255,93,174,12,12,259, 75, 
12,93 

13650 DATA 255,2599,221,221,253,235, 221 
„221,255, 250, 221,2164,295 

1370 ° 
135890 
1370 
1400 FOR 1=0 TB 352 STEP 2:MOVE 0,1: 

RAM 6&409,1,153NEXT:FOR I=1 TO S:LCCATE 
20,1 

1410 PAPER S5s3PRINT CHR&{L7}I3SNEXT 
1426 MOVE 0,3650: DRAWR 640,0,33PEN 3ıL 


"SEREEN 


DEATE 1,1: PRINT"LIVES TIME SCHRE" 
1430 ' FELD 
14406 PAPER 15:RESTORE 1560 


1450 FOR m=4 TO 25:F0R 1=1 TO Z0:READ 
zı0ON z EOSUB 1470,1500,1510,1520,154 


\e] 

1450 NEXT 1 ,mıPAPER 1S:CALL &AO25:605 
UB 2120: G05UB 21409:G0SUB 2150: G070 17 
BO 


49 


Programme 


14370 Ft1,m)=1:PAPER F:LOCATE 1 „mıPRIN 
T CHR${32);= IF RND<O,& THEN RETURN 
1480 LUCATE 1,m: PEN SPRINT CHR$ (1483| 
EHRSZ2ZICHRF LI 

1470 LOCATE 1 ,wıPEN 12=PRINT CHR$ 1255 
ICHR$ (22) CHR$ (0) 1 sRETURN 

1500 # (1,m}=Zs4 RETURN 

1510 PEN 4:LOCATE 1L,msPRINT CHRS 1253) 
s#t1,m)=1:RETURN 

1520 PEN 83LOCATE 1,mıPRINT CHR$ (254) 
PLOT 1*32-8, (25-m) #16+12,4: PLOTR 4, 
o 

1530 #1 ,m)=1rRETURN 

1540 #(1,m}=5:RETURN 

150 ’FELD-BATAS 

1560 DATA 1,1,05,9,1,1,0,1,1,0,0,1,1,0 
„1,1,0,0,15 1 





1959 IF x>20 THEN »=1 ELSE IF x<i THE 
N »=20 

1960 IF y<4 THEN y=25 ELSE IF y>24 TH 
EN y-4 

1976 EI:IF #ix,y)=1 THEN veriıy>ylıGo 
SUB 2130 

1980 IF FNseetx,y)=14 THEN s=5+50:605 
UB 2120:z=2+1:1IF z=20 THEN DIsusitare 
O:yr=016DT0 1990 ELSE CALL &A01S 

1770 LOCATE »1,yl:PRINT" "z:IF FNseet 
x,y)<t4 THEN GOSUB 2130 

2000 LOCATE x,yıPGKE &ALOB,&30O:CALL & 
A1lOO:EI:RETURN 

2010 "RDUTINE 2 

2020 IF utul+u2>0 THEN RETURN ELSE DI 
56SUB 2150 


12030 ELIIFOR q=1 TO artıvl ig)evtigimit 


1570 DATA 1, 4,5,0,144,0,1,4,0,0,1,4,0| 0)=u tg) 


‚1,3,0,0,1, 1 


2040 IF #tvtgq) „nliq}}3<>Z THEN 2050 ELS 


1580 DATA 1, 1,0,0,1,3,0,1,1,0,0,1,1,0]E IF RND>0.75 THEN 2050 


.1,2,0,0,3, i 


2050 ritg)=3-ritq}: IF RND>0.5 THEN ad 


1570 DATA 1,1,05,0,14140414150,0,1,1,0) (Q=-adtq} 


141r0,0,1,1 


2060 IF ritg)=1 THEN vigl=vigl+adiar: 


1600 DATA 0,0,2,0,0,0,2,0,0,2,0,0,0,2) 50T0 2070 ELSE ntq}=w(q)+adtg) 


„0,0,0,2,0,0 


2070 IF vig)=Zi THEN viql=1 ELSE IF v 


1610 DATA 0,0,5,2,0,0,0,0,0,5,2,0,0,0| (a?=0 THEN vtg}=20 


‚0,0,2,5,0,0 


2086 IF wfg)=3 THEN wiq3=235 ELSE IF w 


15820 DATA 3,1,0,0,1,2,0,1,1,0,0,1,1,0| (9)=25 THEN wtq)=4 


„1,1,0,0,1,1 


20970 DI=SLOCATE vitigq),witarsPRINT" "sl 


16830 DATA 1,4,0,0,1,4,0,1,4,0,0,1,4,0| DEATE vtg) „wig} 


„1,4,0,O 71,1 


2100 POKE &A1OR,S3509:CALL 4ALOO:LCALL % 


1640 DATA 1,1,0,041,1,0,1,1,0,0,3,1,0| AOGFLEIINEXTERETURN 


„1,1,0,0,1,1 


210 "ANZEIGE 


1450 DATA 1,1,0,0,1,1,0,2,1,0,0,1,1,0| 2220 PAPER S:PEN 2:LÜCATE 16, 2:PRINF 


„1,1,0,0,1,1 

1640 DATA 0,0,2,0,0,042,0,0,0,2,040,2. 
,0,0,0,2,0,0 

1470 DATA ö, 0,0,2,0,0,2,0,0,2,0,0,0,0; 
‚0,0,7,0,0, ö 

1580 bara 1,1,0,0,1,1,0,3,1,0,0,1,1,0 
in, 0,041 

18909 DATA 1,4,0,0,1,4,0,1,4,0,0,1,4,0 
1,4,0,0,158 

17900 DATA 1,1,0,0,1,1,0,1,1,0,0,1,1,0 
1,150, 081,1 

1710 DATA 1,1,0,0,1,1,0,1,1,0,0,:1,1,0 
1,1,0,0,1,1 

1720 DATA 0,0,5,2,0,0,0,0,0,0,2,0,0,2 
‚0,0,2,5,0,0 

17309 DATA 0,0,2,0,0,0,2,0,0,2,0,0,0,0 
‚0,0,0,2,0,0 

1749 DATA 1,1,0,0,1,1,0,1,1,0,0,1,1,0 
‚1,1,0,0,5,1 

1750 DATA 1,4,0,0,1z,4,0,1,4,0,0,1,43,0 
»1,4,0,0,1,1 

17&0 DATA 1,3,0,0,1,12,0,1,1,0,0,1,1,0 
,131,0,0,3,1 

1770 DATA 1,1,0,071,1,0,1,1,0,0,141,0 
„1,1,0,0,1,1 

1780 "'F IE UREN 

1790 POKE BALOB,&30:LOCATE x,y:CALL & 
R1OO 

1800 POKE %A10B,&50:FOR q=1 TO artıLÜ 

CATE vigt„weg}=CAlLL &AIOO:NEXT 

18109 PÜKE %AO2A,&TCO:POKE &A02D,840:PO 

KE RAOOA,&ASSGOSUB 27480 

1820 TALL &AOGFSWHILE INKEY#F<>""TWEND 
:CALL &BR17 

1830 EVERY uhr „O GUSUB 2020: EVERY #7,1 
ENSUB 1700: EVERY 10,2 GDOSUB 2170 
1940 
1830 
1B80 
1870 DI: IF u=1 THEN 27200 ELSE IF ul=1 
THEN Z2B0 

1806 IF u2=1 THEN 2590 ELSE EI:50T70 1 
B70 

187090 " ROUTINE 1 

17900 »i1=x:yleyılf utul+u2>G THEN RETU 
RN 

1710 IF 
ELSE 
1920 IF 
ELSE IF 
1730 
1740 


HAUPTPROGRANM 


INKEYC74) >-1 
INKEY 175) >-1 
INKEY<(72> >-1 
INKEY 173) 7-1 
INKEYI7FI HL 
DIrx=stxr:yeytyr 


THEN 
THEN 
THEN 
THEN 
THEN 


xr=-1leyr=0 
sr=lıyr=0 
yre-1lıxr=0 
yr=-lıxr=0 
ur=i 


| USING" PAPER 1S:PEN 145 RETUR 
N 
2130 DI:SOUND 2,1555,30,5,,,7r2ieli-1 
:POKE SAOGA,CHIF li=O THEN ul=1:G0SUB 
2190 
2130 PAPER S:PEN 2:LOCATE 1,2:PRINT U 
SENG"#HH8" 5; li;= PAPER 15: PEN 14:RETUR 
N 
2150 PAPER S:PEN 2:LOCATE B,2:PRINT U 


SINGTHHREH"TSLINGSSPAPER 15: PEN 14:RETU 
RN 
2160 "5 DUND 


zı70 IF utul+uZ>0 THEN RETURN ELSE 50 
UND 1,n{RND#*S+H1},15,2>ti1=ti+1: RETURN 
21860 ’WECKER RESET 

21706 FOR 1=0 TO Zir=REMAIN CL GNEXTSRE 


TURN 
2200 ' NEUER LEVEL 
2210 GOSUB 21970ELGCATE x ‚ytıPoKE &AIOCB 


„&30:CALL &ALOO 

2220 IF =c1000 THEN s==+450-605UB 2120 
22306 FOR 1-1 TO 7000: NEXT:SOUND 1,237 
‚„90,5:50UND 1,213,20,5:S0UND 1,170,50 


= 

ni 

2240 SOUND 1,213,20,5:uhr=uhr-10:5=5+ 

Sorart+RND# (129): 1li=li+t1lsartsart+i 

2250 CALL #A025:505URB 2120: 605UB 2140 
:GOSUB 2150: G605UB 2410:605UB 2450 

2260 IF art=& THEN s=s+900-5#t:G50T0 2 

280 ELSE FOR 1=1 TO 5000: NEXT:GOTO 17 

206 

2270 'ıL. IVES= 

2280 G05UB 719: FOR 1=1 TO 70O00:NEKT: 

FOR i=0 TO 400 STEP Z:MOVE 0,1 

22970 DRAW 549,1,53NEXT5 IF s>k (109 THE 

N GOSUBR 2500 

2300 PAPER 5S:PEN 2:CLS:FDR 1=1 TOD 300 

O=:NEXT: INK 2,0: INK 3,0:LOCATE 6,12 

2310 PRINT"GAME DOVER":PEN SELDCATE & 
„14:PRINT"RUN? tY/ND":INK 2,20: INK 3, 

& 

2320 IF INKEY 43) >-1 THEN 2370 ELSE I 

F OINKEYIAS) >-1 THEN 2330 ELSE 2320 
2320 ' ENDE 

2320 rr$="topten?2,. fil"s ERA,err#rOPEN 

BUT"topten?2.fil":FOR 1=1 TO 10 

2350 PRINT#F, 811 ):PRINT#AF,ktl)=ıNEXT: 

LCLOSEQUT:FOR 1=1 TOD 3000:NEXT: IBASIE 
2350 ° RES TART 

2370 GCLS:FOR 1=1 TN S000:NEKT:BOSUB 2 
3050 

2380 EALL &AO25:605UB 2120:G05UB 2149 


Compute mi 


:GOSUB 2150:6010 1780 

2370 ° INITIALISIERUNG 
2400 uhr=I0: art=3rs=O0:ns=0:ti=9:li=t1 
2410 x=3: y-5: yr=9:xr=0: syn=254:byakfd 
Ad: Ssp=9: u=0: ul=0: u?=0:12=0 

2420 RESTORE 2430:FOR 1=1 TO S:READ v 
“D,wil),„adtel}y,ritl)eNEXT 

2430 DATA 3,9,-1,2,10,9,1,2,18,7,1,1, 
3,20,1,2,18,20,—1,1 

2440 RESTORE (24501 FOR 1=1 TOD &:READ n 
{1}: NEXT:RETURN 

24509 DATA 478,425,379,258,319,,204 ,253 
2460 xp=RND TIME} #19+ 1: yp=RND (TIME) #2 
&+42 IF Flxp,yp)<>O THEN 2480 

2475 POFE KAOAS+Ep,ypa:POKE KAUAd+zp,H 
Pp’sp=sp+2 

2480 IF sp<41 THEN 2450 ELSE PEN 14:P: 
OKE by,O: RETURN 

24590 ' IN DEN T 0 P-TEN 
2500 FOR 1=1 TO 3000:NEXT:PAPER 5:CLS 
tWHILE INKEYSS>""ıWEND 

2510 INK 0,0: INK 3,0: INK 4,0: INK 12,0 
PEN SıLDCATE 4,9: PRINT"EXCELLENT I" 
2520 PRINT" mn ":PRINT:PEN 


4=:PRINT" You're in the HALL” 

2530 PEN O:FPRINT:PRINT" ENTER NAM 
Er 

2540 PEN 12:L.0CATE 5,17: PRINT" 
---—- "ZINK O,1:INK 3,61 INK 4,26: INK 1 
2,18 

2550 LOEATE 5,18: INPUT nams 

2560 IF LENtnamf} >10 THEN LOCATE 4,16 


:FRINT SPAGEF (1633 :6G0T0 2540 

2579 ’S0RTIEREN 

2580 FÜR kiet TO IF kiki)>s THEN 24 
10 

2570 FOR k2=10 TO ki+1 STEP-Icktk2)=k 
(k2-19 3 35 (k23= 18 CkK2-1) NEXT 2 

2500 ktkl)=s: j# (k1l)=enam$:GOTO 27470 

26810 NEXT kl:kti10)=as j$t10)=nam$ 

2820 ' HALL oF FRME 

26830 FAPER S:PEN ZÜLSHFOR i=1 TO 300 
O:NEXTIINK 27,0:INK 3,0: INK 12,0 

2640 LOCATE 3,13 PRINT"THE HALL OF FAM 
E"=:PEN 12:FOR I=1 TO 10 

26450 LOBATE 1,2+1#*Z23 PRINT j$(1)," "485 
TRINGSCIA-LEN IF} ,"-"}5 3 LCCATE 15, 
z+ti#? 

2450 FRINT USING"’RHHRR" EEK CL IS SNEXTIUH 
ILE INKEY$<>""SWENDIPEN 3:L0OCATE 4,25 
2670 PRINT"Press any keyz"sINK 2,20:1 

NE 5,67 INK 12,18: CALL &BBIB:CLS:RETÜR 
M 

2680 "'BREAK 

2590 FOR 1=0 TO Fer=REMAINLI:SNEXKT:CA 

tL &BCAFT:FOR 1=0 TO 400 STEP 2 

2799 MOVE 0,1: 0RANR 540,0,5:NEXT:GOTO 
2300 


CHECK Vi: PRUEFSUMMEN: 


?EILENNR.: SUMMEN 1380- 1390: 4770 
1000- 30103 697367 1400- 14310: B188 
1020- 1030: 59659 1420- 1430: 4341 
1040-- 1050: 19R607 1440- 1450: 66101 
1060- 1070: A4504 1460- 1470: 82984 
1080- 10990; ©sE51 1480- 14903101767 
1100- 2110: 72366 1500- 15103 27958 
1120- 1130: 4664 1570- 153304 27887 
1140- 11SCH 66743 1540- 15:0: 25356 
1150- 1170: 27135 1560- 1570: BO1SB 
1380- 1190: 120315 1580- 1590: 79954 
3200- 1210: 44418 1600- 1610: 77981 
1220- 1230: 343074 1620- 1430: 80129 
1230- 17503 19093 1640- 1650: 79897 
1250- 1270: 51291 1&£0- 1670: 776864 
1280- 1290: 18104 1680- 1690: 80157 
1300- 13107 43160 1700- 17105 79B3Z 
1370- 13303 61434 1720- 1730: 7987& 
1340- 4350: 92025 1740- 1750: BO201 
1360- 1370: 5304 1769-- 1770: 79720 
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programme 





1780- 1790: 27923 2120- 2130: 92473 2420- 2470: BAlSs ee RE Eu 
1800- 1810: 86198 2140- 2150: 116331 ZA2O- 200: 60187 H 11 PR } H - 
1820- 1830: &1806 2160* 2170: 81720 2500- 2510r111499 ıg soresTeller- 
1849- 1850: 16732 Er 2170: 2173 2520- 2330: 24356 BE BEE 

- ’ an eldr S GA0- 25505 
1860- 1870: 49021 2220- 2230: Sonya 25A0- 2550: 67411 10 ' HIBHSCOREERSTELLER 
1BB0- 1890: 29427 ?2a6- 2250: 58507 zua0n 2570: 53121 20 FOR I=1 T0 10:m$C1)="SUPRA-SOFT"Entl 
1700- 1910: 79413 u 2580- 2590: 102195 SeOHNEAt 
1920- 19301 67022 2260- 2770: 42954 2600- 2610: 107508 


39 BFENGUT"topten?2.fil"sFOR 1-1 TO 10:P 





1940- 19730: 114770 2286- 2290: 68648 2620- 2630: 43881 RINFRG NE CLIEPRINTHF, SU HA NEXTICLOSEDUT 
19&0- 1970: 935712 2200- 2310:116588 2640- 2650: 90977 - 
1980- 1990: 726841 2320- 2330: 45141 2660- 2670: 4150 

2000- 2010: 40454 2340- 2300: 75629 26B0- 2690: 45224 HECK VESPRUEFSUNMEN: 

2020- 2030: 64937 2360- 2370: 26561 2700- : 22130 ZEILENNR.3  BUMMEN 

2040- 2050: 70763 2380- 2570; 46365 10- 203 69280 

ZU80- 2070: 33042 2400- 2410: 83937 "GESPMTCHECKSUMMES 41313 30- ı 84217 

Z009- 2090: 44262 BO a PT en em 

2100- 2110: 33224 2440- 2450: 67157 BGESAMTCHECKSUMMES 7944 








Scurfy Joe ist unterwe 


ET“; 


a “ B wur 


"Bomben r- 35 = - B Pac EEE 
Stimmung. Ä | 


Wahrlich eine Bombenstimmung 
bei Scurfy Joe. Scurfy Joe, ein ent- 
flohener Häftling, wird von Poli- 
zisten gejagt. Doch der Böse Bube 
hat auf einer Brücke Bomben ge- 
legt und schießt wild um sich, Sel- 
ber ist man auf der Seite der 
‚Rechtsvertreter. Sollte die augen- 
blickliche Lage zu brenzlich wer- 
den können sich die Beamten an 
einem langen Baukran in Sicher- 
heit bringen. Aber aufgepaßt: der 
Haken ist tückisch. Falsches steu- 
ern der Spielfigur führt zur Ex- 
plosion oder zum Absturz. Die x- 
Position nach der letzten Bombe 
führt in das zweite Bild. Hier hat 
Seurfy Joe einen Bombenanschlag 
vorbereitet. Nun gilt es den Aus- 
löser vor Scurfy Joe zu erreichen 
(Time). Der Weg führt über die 
Dächer der Hochhäuser, Die Ver- 
bindungsstellen zwischen den 
Häusern müssen zeitlich genau 
angesprungen und verlassen wer- 
den. Ziel ist die X-Position genau 
vor.dem Auslöser, 





10 ie 5 & © 2050 2872 &7 27.072 20 20202 Pe 2er Een EEE Een I0 EÜSUB 3370: MODE 0: TAG 50 

20 '* 100 SYMBOL AFTER 32 200 PRINT * SCURFY JDE"SCHRE(24DI " 
* 110 RESTORE 3400: FOR w=-356 TO 150 8T | 3:NEXT 

sy '* SEURFY JBE EP & 210 FOR w=475 TO 610 STEP 2:MOVE w,25 
* . 170 GOSUB 3340 o 

0 '* 130 MOVE w,250 220 PRINT" "ECHRS(243) 5 aNERT 

* 140 PRINT" SCURFY JDE"z 230 ORIGIN 100,195 

So '# ic} 1986 by Klaus ürase ‚150 nexT 240 DRAWR 420,0: BRAHR 0,100: DRAUR —42 
* j 150 FOR #7 TO 0 STEP -1:S0DUND 1,256, | 9,0:DRANR 0,-100 

0 * 20,w,0,1:NEXF 250 TAGOFF 

” 170 FOR w=500 TO 500 STEP -ZeMOVE w,2 | 260 FÜR o=1 TO 25 


70 RABBIT So 
* 180 PRINT CHRS{24275" "seNEXT 


275 INK 3,0 


80 


BORDER 1 
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190 FÜR w=1497 TU 120 STEP -ZiMoVE w,? 


Sompute miß 


280 LOCATE 2,21:PEN 35:PRINT”ic} by ki 
aus Grese" - 


1 


v2 


programme 


290 FOR j=1 TO Z004NEXT j,0 
300 FOR ası TO 75 
510 ee=RND#241 BORDER eeıFÜOR ff=t TO 3 


»NEXT ##,a 
320 ENT 1,110,-30,1 

330 n=7 . 
340 FOR a=i0 TO 1000 STEP 10 
350 IF a>860 THEN 370 

360 GDTO 3806 


370 
386 
„0,1:50UND 
390 NEXT a 
#00 CLEAR 
40 MODE I 
420 BORDER 
430 lev-i 
440 1i=3 
4530 sc=9 
40 z=250 
470 SYMROL 
480 SYMBOL 
470 SYMBOL 
500 SYMBOL 
510 SYMROL 
520 SYMBOL 
355 SYMBOL 
5,1651,193 
=40 SYMBOL 
PL-1-) 
550 
560 
125 
gs70 
127 
SB0 SYHBIL, 
103,255 
570 GYMROL 
242,754 
&00 SYMEROL 
„153,255 
510 SYMBOL 
128 

620 SYMBOL 
1,213,255 
630 SYMBOL. 
53,195,2553 
640 SYMBOL 
3,179,295 
650 SYMBOL 
0,254,254 
650 SYMBOR, 
9,129,255 
670 SYMBOL 
257,0 

690 SYMBOL 
570 
700 
710 


SYMBOL 
SYMBOL 


SYMBOL 


SYMBOL 
SYMBOL. 
720 SYMBOL. 
720 SYMBOL 
4,254,0 
740 SYMBOL 
750 SYMBOL 
.o 

FO SYMBOL 
‚255,126 
770 
780 
730 
80 
a00 
810 
820 
10 
8970 
840 
50 
20 
360 
379 


READ qg 


READ i 


REAB p 


READ r 


SYMBOL. 


n=n-0.5 
SOUND 1,48,5,7n,0,1:50UND 2,2+5,5,n 


4,3-5,5,0,0,1 


2 


AFTER 225 
226,0,0,0,0,0,128,154,255 
227,0,0,0,0,0,5,71,233 
228,7,1,1,1,1,1,33,251 
229,9,28,22,59,55,55,73,22 
230,22,12,0,.8,8,1&,16,255 
231,1297,129,131.133,137,14 
232, 281,221 .66 Bi, 


233,295,0,940,0,9,0,255 
234 ,2553,23,30,1,8,127,129, 


235,123 „58,35,24,274, 36,56, 
735,0,254,231,255,220,127, 
237,0,239,224,198,254,170, 
238,126,153,153,255,102,66 
239,4 ,B,24,60,126,2559,255, 
240,255,171,213,171,213,17 
241 ,255,195,165,153,153,16 
242,255,131,135,143,147,18 
243,254,130,130,130, 130,13 
244,255,129,129,129,129,12 
245,124,24,24,255, 255,255, 
246,895,85,85,0,0,0,0,0 

247 ,170,42,32,10,10,2,2,0 
248,42,42,42,10,10,2,2,0 
249,255, 251 ,255,0,0,0,0,0 
259,04,84,84,80,80,64,54,0 
251,254 254,234 „254 „254,25 


252,0,32,96,255,96,372,0,0 
2653,36,36,36,35,36,231,231 


254,126,90,126,231,199,195 


RESTORE 
IF g>=0 THEN h#=ht+CHR$ (g} ıG0T0 7 
DATA 254,8,10,253,-1 
IF i>=0 THEN j$=j$+CHRE (1) 1B0TO 8 
DATA 128,8,10,128,-1 
IF p>=0 THEN q$=q$+CHRS$ {p) ı GOTO 8 


DATA 232,98,10,254,8,10,255,-1 


290 IF r>=0 THEN s$=35#+CHR# (ir) sEOTO 8 


70 

870 
709 
7109 


DATA 128,8,10,128,8,10,128,-1 
aas=CHRF (7513 + EHRE (751 IHCHR$ (?51} 
bb*=CHR$ (250) +GHRS (749) +CHRS(208' 


920 
939 
740 
950 
740 
F70 


Ec$=CHRE (247) HCHR$ (1433 . 
ddF=EHR$ (2453 +CHR$ (249) +CHR$ (245) 
ee$=CHR$ 12513 +CHR$ (243) +CHRS$ (251) 
FFSSCHRF (242) +CHRS$ (24723 + CHR (242) 
gg&=CHR$ (246) +CHRS$ (244) +CHR$ (240) 
hh$=CHRE& (236) +CHR$ (2573 

780 KhS=CHRF 1226) +CHR$ (227) +CHR$ (228) 
770 IF lev=1 THEN 7076 

1009 INK 1,113INK 2,16: INK 3,25 

1019 b=1:c=19r d=34 es 3b t=24rgedı yakı 
CLS 

1020 LOCATE 3,1:PEN 1:PRINT"#&#OFFICE 
R #*SCORE **TIME “ur” 

10920 LOCATE 11,1:PEN 3:PRINT ti 

1040 LOCATE 21,1:PEN S:PRINT zz 

1050 FOR a=-& TOD 25 

1040 LOCATE 2,a:PEN 3:PRINT ees; TABt3 
7 FFSINEXT 

1970 FOR a=15 TD 25 

1080 LOCATE 8,a:PRINT aasıNEXT 

1070 FOR a=23 TO 25 

1100 LOCATE 134,8: PRINT CHRFIZA1I TAB 
35) STRING$ (2, CHRF ZI I ENEXT 

1110 WGGATE 354,223PRINT STRINGFLZ,CHR 
${143)) 

1120 FOR a=& TO 28 

31130 LEIEATE 17,2:PRINT ggFfsNEXT 

22140 LECATE 35,213PEN ZEPRINT CHR# (24 
5 

159 LOCATE 39,57 PRINT CHR$ {739% 

1180 LOCATE 57,94: PRINT CHR& (7383: LOCA 
TE 37,55PRINT CHRFI2STI 

1170 z=2-153LOOATE 335, 1:PEN F:PRINT z 
1189 IF 2<26 AND z>O THEN SOUND 1,18, 
S5,7259UND 2,17,5,7 

1190 IF z=ü0 THEN 1170 

31700 CALL BRBOS 

1210 b=b+1 

1220 IF bX20 AND x=& THEN 2940 

12390 IF b<30 AnD x=12 THEN 1940 

3740 IF b=20 THEN 1250 

1250 5070 1280 

1250 LOCATE 5,1S:PEN 1:PRINT bb# 

1270 IF »=& AND y=13 THEN y=13 

1280 IF b>28 THEN 1300 

3290 GOTO 1320 

1309 LGCATE 5,15: PRINT" ” 

1519 IF x=&4 THEN 1740 

1520 IF b=40 THEN 1330 

43359 GOTG 1360 

1540 LOCATE 11,23: PEN 1:PRINT bh&$ 
1350 IF x=1Z AND y=21 THEN y=2i 

1360 IF b>4B THEN 1380 

1370 GOTG 1400 

3380 LOCATE 11,73:PRINT" a 

1370 IF x=12 THEN 1940 

146909 IF b=50 THEN b>i1 

1410 c=e+1 i 

1420 IF c>33 THEN 1440 

14306 LDEATE c,2Z2: PEN 2:PRINT CHRFI249 
3 
1440 
1450 
1460 
1470 
1480 
1470 
1500 
3 .».H 
15109 
1370 
1530 
1540 
15590 
1560 
1570 
1580 
1570 
1800 
1510 
1420 


IF c=33 THEN d=34 

GOTO 1499 

d=d-1 

LOCATE d,22:PRINT" 

IF d=20 THEN c=19 

e-e-i 

LOCHTE 2,S:PEN Z+PRINT DHR$ (252) 


IF e<2 THEN 1530 

SOTO 1590 

LOCATE 1,5:PRINT"T "re=3ı 
#=f-1 
EDCATE 
IF f<6 


15,6:Printe  " 
THEN 1500 

LOCATE 15,F4 PRINT cc# 

LOTATE 15,#+1:PRINT" * 

GOITO 1620 

LOCATE 185,#3PRINT" " 

IF #<3 THEN #24 

LOCATE x,y:PEN ZePRINT h# 

1630 j=JOVIO) PEN 2 

1440 IF 3 AND BOCOR I AND AGOR 5 AND 1 
& THEN 16850 ELSE 1730 

1850 LOCATE x» ,y:PRINT jF 

1650 IF x=e AND y=4 THEN 3959 


Sompute miß 


IR “SCORE 


1670 IF j AND 8 THEN sel 

1580 IF 53 AND 4 THEN x=kr1 

1570 IF »=e AND y=4 THEN 39506 

1700 IF 3 AND 1& THEN 1710 ELSE 1730 

1710 IF x=e AND y=4 THEN 3759 ELSE 17 
20 

1720 y=y-1:LBCATE x ,yıPRINT h$ELOCATE 


K,y:PRINT j#:x=x+2:LOCATE x ,y:PRINT 
h+=LOCATE »,y:PRINT j$zy=y#+1:2S0UNnD 1, 
B00 ,5, 7722=22+50:LOCATE Z1,1:PEN 3:PR 
INT zz:PEN 2 
1730,.LOCATE x ,y=:PRINT h$ 


1740 IF e=x AND y=4 THEN 39750 

1750 IF y=20 AND x>Z0 THEN 1750 ELSE 
1810 

17680 IF c<34 THEN 1770 ELSE 1780 
1770 IF x>c THEN 1790 ELSE 1800 

1780 IF x>d THEN 1770 ELSE 18590 

1790 IF x=34 THEN 2010 ELSE 1740 


1890 GOTO 1730 

1810 IF #<22 AND y=21 AND »=14 THEN I 
9740 

1820 IF »=16& AND #-23>y THEN 1740 

1850 IF „=16& AND f<24 THEN y+f-2: LOCA 
TE x,y:PRINT h3rL0UCATE x,Fz:PRINT CHR$ 
1145) 
1840 
1950 
iB50 
z=1B 
1970 
iB50 
ELSE 
1950 
FOOD 


IF 
IF 
IF 
ur 


x=1& AND y>3 THEN 1930 

x=1 OR x=37 THEN 1946 

»=2 OR zes OR s-2 IR s=-17 DR 
x=17 THEN 1879 ELSE 1980 

IF y-4 THEN 1930 ELSE 1950 

IF a=8 OR s=97 OR x=10 THEN 1870 
1700 

IF y=13 THEN 1930 ELSE 1700 

IF y=14 OR »=34 OR 2=35 OR x=56 
THEN 1910 ELSE 1720 

1919 IF y=21 THEN 1930 ELSE 1920 
1920 IF x=& OR x=12 OR x=2i THEN yay+ 
1:LECATE »,„yrl:PRINT* MLDCATE x,yıPR 
INT h$r:ELSE 1740 

1930 GOTQ 1170 

1940 FOR a=y 10 23 

1930 LOCATE 8 ,arFRINT" "ILOCATE var 
PRINT h$ 

1950 NEXT B 

1970 FOR a=30 TD 500 STEP 30 ö 
1720 SOUND 1,3,5,7350UND 2,2+3,4,7:NE 
xT 
1990 
2000 
2010 
2020 
2030 
2040 


li=slirt 

GOTO 2750 

FOR a=! TO 3 

FÜR w=1 To 10 

CALL BDO 

NEXT w,a 

2050 LOCATE 37,4: PRINT” ":LOCATE 57,5 
ıPRINT” "z:LOCATE 37,5: PRINT" "LO 
ECRTE 357,73PEN 3ıPRINT kh$ 

2040 GOTO 3270 

2070 EIS 

2080 INK 1,24: INK 2,20: INK 7,185 

2090 n=3: yS14:k=40:3 1-30: xx=5: yy=9:m=2 
Arn=101kk=38: 11=75: mm=23:nn=12 

2100 * yeFsy=14:k=40:1=230:ux=Br yy-dem 
=29:n=10:kk=38:11=25:mm+152nn=5 

2110 LGCATE 1,1:PEN Z:FRINT"##x0FFICE 
*#TIME u." 

Z120 LOEATE 11,1:PEN irPRINT ji 

2130 LOCATE 21,11PEN iıPRINT zz:PEN 2 
2140 FOR a=1 TO 37 STEP 2 

2150 LOCATE a,25:PRINT hhF 

Z160 LOCATE at1,17:PRINT hh$ıNEXTILOC 
ATE 39,16: PRINT hhs 

2170 LOCATE 1,17:PRINT CHR$t2S7I:LOCA 
TE 40,17:PRINT CHR$ 1236) 

2180 FOR a=189 TO 25 

2170 LOGEATE 3,a:PRINT Ih; TABCISI hie 
; TAB(25) hh#3 TAB(37)I hhFz2NEXT 

2200 xm=0:ym=0: FOR yı=o TO 100 

2210 MOVE 190, ym:DRAH m, ymtydınEXT 
2220 xm=460: ya=C: FOR yd=O TO 100 

2256 MOVE 640, ym+tyads DRAW 460,yms NEXT 
#240 LOCATE 5,6:PEN 3:FRINT STRINGFTZ 
4 „CHR$ (95993 

2250 LOCATE 1,7: PRINT STRINGS {4 ,CHR$T 
24433, TAB{S) STRING# (74,CHR$ 23T I: TA 
B{27} CHRF(21N 








2260 LOCATE 4,8: PRINT CHR$ (209 ; TAB(S 
> STRINGEC2A4,CHRF (235) ) 5 TABT2) CHREL( 
211} 
2270 
zra0 
2279 
2300 
25310 


LOCATE £,15:PRINT CHRF{2I39) 

FOR a=5 TO 27 5STEPR 2 

LOCATE a,iS: PRINT CHRF(237):NEXT 
z=z-1:L0C8TE 33,1:5PEN 1:PRINT z 
IF z=0 THEN 3170 

2320 TALL &EB63 

2330 k=k-1:1=1-12m#n-1:n=en-lekk=kk-ir 
Ii1=11-I:2mmsmnm-1:nn=snn-1 

23540 IF k=0 THEN k=39: LOCATE 
ur" nm 

2350 IF 1=0 
NT" L/} 

2560 IF m=6 
re u 

2370 if .n=0 
re" 

25389 LOCATE 


er" 


2390 LOCATE 


1,14:2PR1 


THEN 1=39: LOCATE 1,14: PRI 


THEN m=39r: LOCATE 1,14:PRI 


THEN n=39:LOCATE 1,14: PRI 


kyı34:PEN 2:PRINT EHR$# (252 
1,14: PRINT CHR$(252)34” " 
2400 LOCATE m,14=PRINT CHR$(252)5" " 
2410 LOCATE n,14: PRINT ECHRFL232I3," " 
2420 IF kk=0 THEN kk=3AMLOCATE 1,15:P 
RINT" " 

2430 IF i11=0 THEN 11=39: LOCATE 1,13:P 
RINT” 

2440 IF mm=0 THEN ma=39:LOCATE 1,13:P 
RINTe ® 
2450 IF 
RINT" . 
2440 LOCATE 
2470 LOCATE 
2480 LOCATE 


nn=0 THEN nn=39: LOCATE 1,15: PP 


kk„13:PRINT CHR$(25235" " 
11,133FRINT CHRF12S23)3” " 
mm, 13:PRINT CHR#$(73233" " 
2470 LOCATE nmn,13:PRINT CHR$(Z52)5" " 
2500 LOCATE xx ,„yyıPRINT” * 

26510 IF nx»>27 THEN ax=-i 

2520 IF xx=5 THEN =u=1 

2530 xx=uxtax . 

2540 LOCATE xx „yysPRINT CHR$ (234) 
2550 LOGATE »,yY:PEN 1:PRINT h$ 

2560 j=J0Y (0 


2570 IF y=10 THEN 2540 
2580 IF 3 AND # DR } AND 8 THEN 2570 
ELSE 2400 


2570 IF x=k DR #=I OR x=m OR s=n THEN 
3730 ELSE 2670 

2400 IF j AND 15 THEN 7610 ELSE 2640 

25i0 IF x=k OR x=1 OR x=m OR x=n OR x 

=kk OR x=11 OR x=mm DR x=nn THEN 3950 
"ELSE 2520 

2626 LICATE »,yePRINF j$ry=y-2:LOCATE 
x,y:PRINT h$:LOCATE %,y:PRINT j$stx=x 
+2:LOCATE x ,y:PRINT h$=:LOCATE x„ysPRI 

NT j$:y=y+t25L6CATE x,y:PRINT k$:SOUND 
1,800,5,7:G05UB 2840 

2430 GOTO 2770 

2440 IF 5 AND 2 THEN 2710 

2450 IF 53 AND I THEN 2440 ELSE 2780 

2440 IF x=k OR #1 OR n=m OR x=n DR x 

=kk OR »=11 OR x=mm OR x=nn THEN 3950 
ELSE 2750 

2670 LOLATE x ,y: PRINT j$ 

2480 IF j AND B THEN x=«+1 

2890 IF j AND 4 THEN »=x-1 

2700 SOTD 2780 

2710 IF x=kk BR x=11 OR xemm OR x#nn 

THEN 3950 ELSE 2720 

2720 LOCATE x,vy-1:PRINT s# 

2730 IF 53 AND 2 THEN y=y+4 

27830 GOTO zZ7&0 

2750 LOCATE x,y-1:PRINT s# 

2760 IF 3 AND 1 THEN yy-4 

2770 LOCATE x,y-1:PRINT as:6070 2790 

2780 LOCATE x ,„y:PRINT h$ 

2790 IF x<2 THEN LÜCATE x,yıPRINF safı 

GOTO 7910 

2800 IF y>i4 OR y<10 THEN 3740 

2010 IF x=5 OR x=7 OR »=97 OR «=11 OR 

x=13 OR x=15 DR x=17 OR x=17 OR 21 

OR x=23 OR x=25 OR x=27 OR x=27 THEN 

EOGCATE #,y3 PRINT s$:G0TO 2710 

2020 IF y=14 THEN 2830 ELSE 2840 

2830 IF x=k OR x=1 DR x=m OR x=n THEN 
53750 


10/86 


2840 IF y=15 THEN 28950 ELSE 2870 

2850 60710 2870 

2860 22=22+50:LOCÄATE 21,1:PRINT zz:1IF 
x=kk OR x=11 OR x=mm OR x=nn THEN 37 
50 ELSE RETURN 

28706 IF y=10 AND x=xx THEN 3760 

2880 IF y=10 AND ns UR y=19 AND x728 
THEN 3780 

2870 IF y=14 AND *> 23 THEN lev=2:CL5: 

LOCATE 17,12:PRINT"READY ?"rFOR ski 

FO S00:NEXT:GOSUB 3449: 6070 10900 

2990 GOTO 2300 

2910 FOR ab=1 TO 3 

2920 FOR act TO 10 

29730 CALL %BD2O 

2949 NEXT ac,abıGUSUB 367 HFOR a=1 TO 
2000: NEXT:GOTB 19970 


2950 CLS 

2960 FOR a=6 TR 14 

270 LOCATE 20,3:PRINT"+"=NEXT 

?2F80 FOR a=17 T0 23 

2770 LOCATE_a,B:PRINT"+"ENEXT 

3000 IF 1i=0 THEN 3040 ELSE 3010 
3010 LOCATE 7,197:PRINT"THE BFFICER 18 
BUF BGF ORDER“ 

3020 FOR a=t TO 1000rENEXT 

30650 G0TO 3160 

3040 LOEATE 9,19: PRINT"THE SPECIAL TE 


AM 15 DEAD" 

3050 LOGATE 14,21:PRINT"YOLR SCORE: "35 
xz 

3060 ENY 5,1,15,1,50,-1,50 

3076 SOUND 1,1000,700,0,5:50UND 2,110 
0,700,0,5 

3080 LOCATE $,233PRINT"PRESS SPACE FO 
R NEW TEAM" 


3090 FOR a=1 10 SOO:NEXF 

3100 FOR a=& TD 13:FOR i=1 TD 1S:NEXT 
ä 

3110 LOCATE 17,=:PRINT"  "SCHRSI23I) 
Fu 

31206 LOCATE 17 ,a+1: PRINT" ++rHt#r" sNEX 
T 

3130 LOCATE 17,14:PRINT* "3STRINGStS 
„EHRFE1IFI I," " 


3140 
3150 
3160 
3170 
31890 
3190 
3200 
3210 
3220 
3230 
000 
3240 SIRMND 1,ea,5,ef:50UND 2,eb,S,ef: 
SOUND 4,ec ,S,efsNEXT 
3250 LDEATE 9,5:PRINT"PRESS SPACE FOR 
NEW GAME" 
3260 GDTE 3650 
3279 LUOERTE 10,3:PRINT"THE SEURFY JDE 
IS DEAD" 
3280 LOCATE 9,53PRINT"FRESS SPACE FOR 
NEW GAME" 
3290 FOR a=8 TO & STEP -1:50DUND 1,100 
0,10,2,0,0,30:SDUND 2,1000,10,2,0,0,3 
OrSOLND 4,700,10,34,0,0,30:NEXT 
3300 FÜR a=z TO © STEP -I:rz=zz+50:150 
UND 1,50,1,7:L0OCATE 21,14PRINT zzıLOC 
ATE 353,11PRINT arNEXT 
3310 GOTD 35590 
3320 ENT 1,0,0435, 1714,39 14243314333 
3330 EN 1,0,-1,3,1,72,3,1271,3, 14724 
3 
3340 
3 
3350 RETURN 
3360 READ a:IF 
ı609T0 33540 
3370 SOUND 1,2,20,0,1,1 
3380 SOUND 2,8+2,20,0,1,1 
3370 RETURN . 
3400 DATA 200,200,265,265 ,200,200,265 
„265 
3410 


LOCATE 20,5:PRINT CHR#(7250} 
LOCATE 20,4: PRINT CHR$ (229 

FOR a=1 TO 10C00:NEXT 

IF 1i1=0 THEN 34509 

soro 970 

LOCATE 16,3: PRINT"TIME OVER!" 
ef=5 - “ 
FOR ed=1 TO 100 

IF ed>&5 THEN ef=ef-0.} 

e3=RND# 1900: eb=RND#F 1000: ec=RND#i 


ENV 2,0,-3,35,1,-4 321273, 3,1045 


a=-1 THEN RESTORE 3400 


Data 176,179,235,255,178,170,235 


Compubes mi 


programme 


„235 
3420 DATA 210,210,265,245,235,235,210 
‚210 

3430 DATA 200 ,200,235,235,265 265,235 
„210,- 
3440 
3450 
3460 
3470 


ReSTORE z50 . 
ENV 1,0,-1,5,0r,- 
ENT 1,1,-1,20 
READ arIF a=-1 THEN RETURN 

3480 READ b 

2490 SOUND 1,3,15,0,1,1 2 SOUND 2,h,1 
5,0,241 

3500 GOTO 3470 

3510 DATA 700,160,4,4,200,160,200,160 
3520 DATA 160,155,4,4,160,135,160,135 
3550 DATA 180,150,4,4,180,150,180,150 
3540 DATA 200, 180,-1 

3550 RESTORE SS50:ENT 1,1,-1,3,1,0,35 
1,1,3,1,0,3,1,-2,3 

3560 ENV 1414-1434 142, 3414-5, 341,15 
3 

3570 READ a:IF a=-i THEN RESTGRE 3570 
:GOTG 3570:ELSE READ b 


4,5 


Z58B0 a$=INKEY$: IF at=" " THEN RUN 410 
3570 IF a=0 THEN SOUND 1,0,25,8460T0 
3570 

3600 SOUND 1,6,25,4,1:SDUND 2,3,25,5, 
1,1 

Fu410 GOTO 3370 

3620 DATA 400,99 ,320,0,263,99,320,99, 


400,99 ,320,99,263,70,320,77,400, 78,32 
0,79,263,0,320,0,400,0,320,0,263,0,32 
0,0 

3630 DATA 400,99,320,0,263,99,320,99, 
400,997 ,320,99,263,90,320,78,520,70,42 
0,0,355,0,420,0,520,0,420,0,355,0,420 
‚o 

3640 DATA 520,105,420,0,355,105;420,1 
05,520, 105,420, 105,355,100,420, 105,52 
0,70,420,105,355,0,420,0,520,0,420,0, 
355,59,420,0,520,67,420,0,355,73,420, 
0,520,87,420,0,355,85,420,0,400,79,32 
0,0,253,0,320,0,400,0,320,0,263,0,320 


„0,-1 

3650 IF 1i1=0 THEN GBOTO 3799 

3660 a#=INKEYFı IF a$=" " THEN RUN 419 
ELSE 3660 


3670 FOR a=B TO O0 STEP -1:50UND 1,100 

0,10,3,0,0,30:SDUND 2,1000,10,2,0,0,3, 

0:SBUND 4,700,10,4,0,0,30:NEXTrRETURN 

3680 CLS 

3690 ENV 1,1, 7143, 12-2, 3,143, 3,144, 

3 

3700 ENT 1,1,71,3,13,72,3,13-3,3,1,—2, 

1 

710 READ a:sIF a=-i THEN FOR a=-4 TD 0 
STEP -1250UND 2,210,20,2,0,1:50UND 2 
,200,20,4,0,1:E0UND 4,190,20,2,0,1:NE 
XT:END 

3720 IF a=0 THEN SOUND 1,0,20,0:5DUND 
2,0,20,0:50UND 4,0,20,0:6010 3710 
3730 SOUND 1,2,25,0,1,1=:SUUND 2,a+10, 

25,5,1,1:350UND 4,a-10,25,0,1,1:250T0 3 
710 . 

3740 DATA 200,0,225,200,180,180,200 

3750 DATA 225,200,200,180,225,200,-1 

3760 FOR a=y TO 24 

3770 LOCATE %,3-13PRINF" 
PRINT h# 

3780 NEXT:GOTO 1976 

3730 ENV 1yhulnigheZulelndetnisä,iuly 

Sy1 

3800 RESTORE 38409 

3810 READ a:IF a=-1 THEN RESTORE 3840 
TREAD a 

3870 a$=INKEY$:IF af=" " THEN 3930 

3830 SOUND 1,a-2,17,0,1:SOUND 2,4,5,&5 
‚„0,0,10:50UND 2,0,12,0:60T0 3810 

3840 DATA 500,340,250,740, 200 ,340,250 
„340 

3950 DATA 500,340,250,340,200 ,340,250 
„340 

3860 DATA 570,380,280,380,2725,380,280 
‚380 ” 

3870 DATA 5600 „404, 300,400, 250,400,3009 
„300 


"SLOCATE ya 


Programme 


3886 DATA 570,380,290,380, 225,350 ,280 





=9109 DATA 250,340,670,450,270,450,225 | 3740 RUN 400 











„380 3920 DATA 450,270,450,-1 5750 SOUND 1,25,10,7: 5DUND 2,69, 10,6: 
3870 DATA 500,400, 300,400, 270,400, 300 :3730 FOR b=7 To Q STer -0,.5:50UND 1,8 | SOUND 4,54, 10, Pi IF lev=1 THEN 3740 EL 
3700 DATA 400,500,340,7250,340,200,340 | ‚B,bzNEXT SE 1940 
TCHECK V1: PRUEFSUMMEN: 770- 7EO: 1817 1590- 15060: #317 2410- 2420: 90727 3230- 3240: 572413 
790- 600: 51309 1610- 1620: 29974 2430- 2440: 64774 3250- 3760: 34142 
ZEILENNR.: SUMMEN B1O- B20: 44787 t1630- 1640: 9811 2450- 2460: 50732 3270 3780: A4750 
10- 20r 30254 B830- 8401 9097 1650- 1560: 37204 2470- 2430: 363591 3290- 3300: 118530 
20- AO: 14797 B50- 860: 535658 1470- 1480: 54071 24709- 25001 300772 3310- 33201 17402 
50- &0: 36775 Br0- 9403 49502 1490- 1700: 4565483 2510- 75720: A1774 3320- 3340: 59571 
70- B0: 284506 870- 900: S77A35 1710- 1720: 40818 2530- 2940: 37619 3350- 3360: 29644 } 
70- 100: 56458 910- 7203 0621 1720- 1740: 37265 25350- 2560: 20540 3370” 3390: 14224 i 
110- 120: 279746 9739- 950: 81553 1750- 1780: 51205 7570- 2580: SBAbd 33990- 3400: 77681 ; 
130- 149ı 130944 750-9460: 99957 1770- 17801 I5365 2590- 7,004 165020 34109- 3420: 55680 | 
1507 180: 42647 970- 9R0s 51143 1790- 1800: 174433 ZEIO- PA2CE AFOFT 3430- 3490; F73S8 
170- 180: 47701 7970- 1000: 17051 3210- 1920: 94942 26530- 276540: 10634 3450- 3460: 12495 
100- 2009: 67071 1010- 10201 979975 1830- 19491 93933 26I79- Rdn Hr 53470- 3499: 23035: | 
z210- 220: 453938 t030- 10404 221J% 1850- 1960: 67791 2470- 2Z6R0: SAMHIB 3490- 3500+ 27395 | 
230- 240: 35508 1050- 1050: AbAbı 1870- A001 67444 2670- 2700: ZB1RH2 3510- 3520: 42372 | 
250- 260: Si 1979-1080: 1972977 1970- 9001 45344 2710- 2720: 44408 3530- 3540: 24992 | 
270- ZEN: 41764 1090- 11001 712453 1710- 1720: 75371 2730- 2740: 792990 3550- 3960: 6725% } 
290- 300: 30369 i119- 1170: 724644 19230- 197401 107728 2FS0- 2760+- 472955 3570- 3580: 88984 
310- 320: 356478 1130- 11404 77463 17350- 19501 733% 277D= 270: Ihe 3590- 3600: 46396 
330- "340: 16408 1150- 116d: A6.57B8 E3790- 59790: 19408 F7O9- 2R0O0ı Kipra 3610- 3520: 15570 : 
350- 260; 979997 1170- 4180: 73902 1970- 7000: 10754 PE1O- 2R20, a2 3630- 36540: 61312 
370- 330: 54757 1190- 12005 90597 2010- 20201 17iäh 2830- Z1140r 620992 F450- 3660: AB61S i 
F70- #00: 16997 1710- 12201 30474 2039- 7040: 5734 PAsn- ZAAO: Iahh? 3670- 3690: 152795 | 
410- #20: 417 1730- 12402 34731 2050- 7050: I7ET2 Z870- ZABOr 48545 36F0- 3700: 59575 1 
430- A409: 7382 1250- 1280: 10524 29FO- 2020: 7617 PaRO- 2900: 39787 3710- 5720: 89132 i 
450-  440t 7248 1?70- 127801 370643 20F0- ZiON: AYPAF 2F10- 2720: 14701 37390- 3740: 57694 
Aara- 480: 20954 12709- 15309: 3335 z110- 2170: SA688 PIEO- PAD Haid 3750- 3760: 295384 | 
#30- 500: 27540 13410- 13720: 15932 FIFO- ic: Deich FR30- PAD: MHIEO 5770- 3780: 46402 . ı 
510- 5720: 30758 330- 1340: 11868 2150- Zi60ı 37A67 2970- 2980: Sen 3790- 3800: 16758 h 
520- 540: 53217 1350- 41350: AITIB ?i70- iA ads! Hund. ano Varzı 38310- 3820: 54127 | 
S50- 5606: S5A01 1370- 1329: 4117 zi1Fn- 2200: 71803 Z010- 30704 SAME 3939- 3840: 86529 
S70- 580: 53203 179709- 14001 23407 PriOn- 2270: BO?ZS TOR0- 30Adı AAyza 3650- 3860: 55207 j 
590- 500: 73781 1410- 1320: 34137 PrIg- 7780: a7? soS0- XOdch 7770 3970- 3050: 54704 | 
&i0- &20: 657970 1330- 1440: 34503 2230- Zr60: 62974 0709- 3080 5TIZE 3870- 3700: 42038 } 
630- #40: 72420 2507 1450: 770 FZIO- Fi: 174720 2090- 34003 SiIOTR 3910- 3920: 29097 j 
650-650: 501354 1470- 1490: 7Z015A PFIO- 700: 94574 z2110- 170, 40474 3730- 2940: S09S& | 
670- 6580: 42902 1470- 1900: 27835 2310- ?X7Or 5079 3150- 140 IH772 39359- : 37157 j 
s670- 700: 22416 1519 315201 97145 2330- 73401 BAr21 3150=# 31803 20704 | ---722 mem nn | 
710- 720: 33778 1530- 457401 17830 F3a0- 20: 54507 31709- 3120: 8779 BESAMTCHECHSUMMES 7170 
F30- 740: EI7TB 1550- 1530: #76 aa70- 22a AIG? 3190- 3206: 15585 | 
F50- 760: 57904 1570- 15A0: 17091 2390- 74002 22400 %210- 3220: 85700 | 








Diese nötzliche Zeichenhilfe ame 
bindet das Ergebnis in Ihr Basicprogramm ein! 


Wer kennt das nicht: Man will ei- 
ne Überschrift DRAWen oder 
ein Bild auf dem Bildschirm ent- 


lerdings nicht als Listing aus- 
drucken kann. 


Beide Arten haben also ihre 


2, Balken horiz.: 1. Punkt setzen; 
2. Punkt setzen; Farbe einge- 
ben; Dicke eingeben (Dicke= 


5. Kreislinie: wie 4. 


6. Text: Anfangspunkt setzen; 





werfen; aber dafür gibt es nur 
zwei Möglichkeiten: 


1. Man setzt sich stundenlang an 
den Computer und entwickelt 
das Programm durch auspro- 
bieren. 


2. Man benutzt ein Zeichenpro- 
gramm,bei dem man das Bild al- 


Nachteile. Mit dem DRAWGE- 
NERATER kann solch ein Bild 
menügesteuert werden gezeichnet 
und dann in Basic Zeilen abge- 
speichert werden! 

Zeichenmenü 

1. Linie: 1. Punkt setzen; 2. Punkt 

setzen; Farbe eingeben 


Länge) 


3, Balken vert.: wie 2,, jedoch be- 
stimmt die Dicke hier die Höhe 


4. Vollkreis: Mitrelpunkt setzen; 


Pankt auf Kreislinie setzen; 
Farbe eingeben 


Sompube mib 


Farbe eingeben; Text eingeben 


Hauptmenü 

1. Zurück zum Zeichnen 

2. Bild aufbauen (zum Über- 
rüfen) 

3, Bild SAVEn 

4. Letzten Schritt löschen 


Die Steuerung erfolgt mie den 





10/86 





CURSER-Tasten, wobei die Schrittweite | 
durch SHIFT erhöht werden kann. Der t 
Punkt kann mit DEL gelöscht werden, solang 
der 2. noch nicht gesetzt ist. 


Achtung: 


Bei Cassetttenbetrieb muß in Zeile 119% hin- 
tier OPENOUT ein Ausrufezeichen! 


EEE fd de ee ed a Ft Pl 


10. BR 
20 '#### Drau-Senerater V-i,.1 #### 
30 "s#* Geschrieben: Sept. 85 ##r 
ao '#un# (Ic) by P.W Soft wer 
SO "wnsak Peter kKoelflick user 
RHRRRRHIBHIÄHHHIBISIHHIHIHIIHHIHE 
709 DEFINT a-z 


E60 KEY 1,"MODE 2:L15T" 

90 DIM a1200} „b (200) „bc 1200) „ab1200), 
$ (200) „h 1200) „d(200) „st 1200} „text 120 
0 
100 
110 
120 
130 
140 
i50 
160 
170 
ı80 
170 
209 
210 


MODE 1 
BORDER 13 
LRCATE 15,7: INPUT"Made:", 

IF m{O OR m>2 THEN 100 
LS 
PEN #2,3 
WINDOW #0,1,40,1,20 
WINDOW#2,1,40,21,25 
PAPER #2, ,Z:EL5#2 
RHHHHARBIEISEHRAHE IHR 

'### Haupt-Schleife ### 
Eee ee ee ee re ee rT oe 2" 
22G z=z+1 
230 CLS #2:GO5UB 1410: INPUT #2,"" mo: 
IF mo{=0 THEN 1340 
240 0N ma EOTO 240,320,410,500,580,64 
[e} 

2530 '### Linie ###* 
240 GOSUB 710 

270 ORIGIN a,ab:DRAW b-a,be-ab,f 

290 altz)=eazabtiz)sab:btz)=b:bciziebeif 
ZI’=f 

290 hiz})=ma 

300 G0TO 220 

310 '»2# Balken nach oben ##%* 

320 a=0: ab=0:605UB 710: INPUT #2, "Dick 
e:".d 

330 IF d<6 THEN st=-1 ELSE st=i 

340 IF mi2 THEN stsst#2rtextfiz}="5STE 
P"+5TR$ (st) 

s50 IF m=2 AND st<ö THEN tenttiz)="ST 
EP"+S5TR$ {st} 

360 FOR t=1 TO d STEP st 

370 ORIGIN a,abt+tt: DRAW b-a,be-ab,f:NE 
Kr 

380 alz)=sasabtz)=ab:biz)=ebrbe (zI=ebeoi f 
{(e}=f:diz)=ed:stiz)=st 

390 GOTO 290 

400 '"### Balken nach rechts ### 
4109 a=0: ab=01560S5UB 710: INPUT #2,"Dick 
er".d 

420.1F d<o THEN st=-1 ELSE st=1 
430 IF m{2 THEN st=st#2:text#tz)="STE 
PF+STRE (st) 

440 IF m=2 AND st<0 THEN textfiz}="ST 
EP"+BTR$ (st) 
450 FOR t=1 TO d STEP st 
450 ORIGIN att,ab:ı DRAW b-a,bc-ab, f:NE 
xT 
470 alz)=asab (z)=abıbiz)=brbctz)reberf 
(z)=fıdtz)=d:stiz)=st 
480 GRTO 2770 

490 '##+ Voll-kreis *## 

500 a=0rab=0:505UR 710:ra=SoRtta-b)”2 
+ibc-ab? "23: 0RIGIN a,„ab:DEG 

S1o IF ra{=60 AND m<2 THEN st=Zitexts$ 
(z}="STEP 2" ELSE st=1 

520 FOR j=0 TO 180 STEP st 

20 PLOT ra#SINtit,raxcostjr,f 

540 DRAWR Zr asCOS (90+7) ,0,# 

550 NEXT 

Sa0 alz)=arabtz)sabıbiz)ebibe (Z)=ber 
tz}=fiısttz)=et3ßOTl 790 
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570 '#%* Kreis-Linrie %#* 

5890 a=0:ab=0:G0O5URB 710:ra=SQRtlfa-b}”2 
+tbc-ab} 2) :ORIGIN a,ab:DEG 

590 IF rac=äa0 AND m<Z THEN st=2itextf 
tz}="STEF 7" ELSE st=1 

s00 FOR j=i TO 180 STEP st:PLOT rars 
INtj} ,ra#COStj),f 

519 PLOTR Zrras6091970r3} ,0, 7 

620 NEXT: atz)=arab t(z)=ahrh iz)eshibe iz) 
bes f (z)=efist tzI=est:GDTO 290 

630 nur Text wur 

#40 flag=1:fa=2:G05UB 720 

650 ORIGINM 0,0: PLDT -10,-10,f:CL5 #2: 
INFUT #2,"Text:" „text$:MOVE b,be: TAB: 
PRINT text$; : TAGOFF 

660 biz)=bibe tz}ebest tz)efıtentsir)et 
ext$ 

670 GOTO 270 

EBO TEE 

65909 'e# Gteuerung #8 

FO RHEIN 

719 fa=s2: flag=0 

720 ERLL SBROS . . 

7359 x=320: y=-200:CL8 #2 


799 "#** Zeichenart-Anzeige ### 

750 LOCATE #2,30,3:1IF mo=2 THEN PRINT 
#2, "Dicke="EHRFENI GE" 

"ELSE IF mo=3 T 

HEN FRINT #2,”"Dicke="EHRFil)g" *" ELS 
IF mo=4 THEN PRINT #2,CHR$ (231) ELSE 
IF mo=5 THEN PRINT #2,CHR$1230) ELSE 


IF mo=& THEN PRINT #2,"Text" 

760 LOCATE #2,30,2:PRINT #2, "Artı"jmo 
770 t=1+(TIME/100} 

780 IF INKEY(O}=O0 THEN yaytz:warl 

790 IF INKEYI2}=0 THEN yy-2:narı 

850 IF INKEYIBI=O THEN xexr-Zıwasi 

8109 IF INKEY(1}=O THEN x=r+2rnasmi 

BZ0 IF INKEY(O)=3Z THEN yry+d:-wari 
850 IF INKEY(23=32 THEN y=y-Brwasi 
840 IF INKEY(B}=32 THEN x=x-Brwa=l 
850 IF INKEY(1)=32 THEN x=x+B:was1 
B&0 IF INKEYI7M<C>-1 THEN flag=0: LOCA 
TE #2,1,1 

8709 IF INKEYLIEIC>-1 THEN IF t<TIME/I 
00 THEN IF #lag=1 THEN Flaqg=0:b=s:hc= 
yv:PRINT #2," 

2.Punktz "bb", "besORIGIN 0,0:t1=TEST ie, 
YIsPLOT x 4yR23-t1: INPUT #2,"Farbe:",f:3 
RETURN ELSE a=sx:ab=y:flag=i:PRINT #2, 
"1.Punkt:"a","abzORIGIN 0,0:t1=TEST ix 
sy’ıFPLOT »,y,5-t1 

880 ORIGIN 0,0 


890 al= TESTER 4y)E a2=TES1 (x+6,y) 1ad=TE 


STix+8,y) 

700 a93=TESTix-&,y}2a5=TEST ix -8,y)ıad- 
TEST IR „y+6):37=TESF (x „y+8)taB=TEST ix, 
y-6):49=-TEST ix ,y-8) 

10 LOCATE #2,30,3:PRINT #2,x1y 

720 IF fa=sal THEN IF fa<2 THEN fa=tfar 
1 ELSE IF fa>3 THEN fa=fa-il ELSE fFa=f 


a+l 

756 IF ali<>2 THEN #a=2 

740 '#%®* Fadenkreuz plotten ###= 

750 ORIGIN x,y:PLOT 6,0, faıf LOT 0,0, 
a 

760 PLAT 8,0,#fa:PLOT -5,0:PLOT -H,0:P 
LOT 0,6 

770 PLOT 0,8:PLOT 0,-4:PLOT 9,-8 


780 IF wa*=i THEN wa=0ıG0T0 1009 ELSE 
WMHILE INKEYS=""3WEND 

990 '***« Hintergrund plotten === 

1000 GRIGIN x,yıPLOT 5,0,a2:PLOT 0,0, 
ai 

1010 PLOT B,0,a3:PLOT -5,0,=4:PLOT -8 
‚0,a5:PL0OT 0,6,a6 

1020 PLOT 09,8,a7;PLOT 0,-65,88: PLOT 0, 
-B,37 

1630 GOTD 780 

1040 "#** Bild aufbauen ### 

1050 zx=z:CLS:CL5 #2:FOR 2=1 TO zx-1: 
LOCATE #2,27,5:PRINT #2, "Schritt:"z5 
1050 IF htz)=I THEN ORIGIN a(z),abtiz) 
:DRAW biz) -alz) „beiz)-abiz) ,„tiz3 

1070 IF htz?=2 THEN FOR a=1 10 dizJ 5 
TEP st iz}:0RIGIN alz) ,„abtz)+a:DRäl bi 
z}i-alz),betz)-abiz),fiz)eNEXT a 


Compube mi 


Programme 


1690 IF Rtz)3=3 THEN FOR a=1 TO diz) 5 
TEP st {z)J:ORIGIN atz)+a,abiz):DRAW b{ 
z3-alz) ,beiz)-abtz) ,Fi2)eNEXT a 

10970 IF htz}=4 THEN DEG:ra=SOR ((atr}- 
biz))"2s(botz)-abt2))r2: FOR j-sl TDi 
80 STEP st (zJ=ORIGIN alz) „ab (z3: PLOT 
rasSsIN(j} ,rarbOsStj),f(z}:DRÄAWR Z#eraxt 
05(90*3} ,O,Ftz}=NEXT j 

1100 IF h{iz}=5 THEN DEG:ra=-S5UR ttatz)- 
biz) Ir Zribe iz) -abtzI I" ZI: FOR ij=1 TO 1 
89 STEF sti2)3:DRIGIN afz},abtz).PLOT 
raxsiNfj},ra#C0Stj),f (ZI: PLOTR.Z#rast 

05170+3) ,0,Fiz)ıNEXT j 

1110 IF hiz}=4 THEN ORIGSIN 0,0:PLOT — 
10,-10,ftz}: MOVE biz} „bc (2) ı TAG: PRINT 
text# iz) 3: TAGOFF 

1120 NEXT z 

1130 z=ezx 16070 230 

1190 URN ER ER 

3150 "### Abspeichern === 

1150 euren 

1170 zu= 

1180 z=0 

1170 DPENDUT"dranbild.bas" 

1200 PRINT #7,"10 mnode"m 

1210 FÜR z=1 TO zx 

1229 IF hiz}=1 THEN PRINT #9,2#10+103 
"ORIGIN"+STRF(alz))+", "+ETR$tabiz))+" 
draw "4+STR$I(b ir} -atz))H" "4HSTRFCb iz 
J=abtz))+" "V+STAsiHlzY) 

12350 IF htz}3=2 THEN PRINT #9,z7*10+105 
"for a=1l ta"+5STRstdtzy)y3textstz)+"tor 
igin"+5TRttatz))+", "+5STR$tlab (zI)+"+ar 
draw"+STR$ tb (zZ) -atzi) +" „"+BETRS Chr (23 
ab(z))+" "4STRECH (ZI) "next a" 

1246 IF Bizi= =3 THEN PRINT #9,2*10+105 
"for a=1 to"+5STAFtdtzPIstextstz)t"ior 
igin"+SIR$ (atzı )+"+a,"+5TRSlabIz))*"s 
Ar am"+5STR$ {b (zZ) -a(z}) #" „"+STR$ehbe tz) 
ab (233 +"  "4STRFH (ZI) Htınext a” 

1250 IF h(z)3<>4 THEN 1276 ELSE PRINT 
#9 ,2#10+10;5 "degrra=sgr (("+STR$ la (z))+ 
="#STR# Ib (239 +") 72H "+STRF be (I) 
"+5TR# (ab (zZ 34") ı FOR j>1 TO 180"+t 

exrts(z) "SORIGIN"+ETRE Ca tz) 3) +", "+STRE 
ab iz); 

1250 FRINT#7,":PLOT ra#SINtj) ‚ra#b0St 
+, "+5TR$E CH (2m) +": DRAWR Z#rarl0S{70+j 
3,0, "+5TRFEF ZI HtENEXT j" 

1270 IF htz)<>35 THEN 1290 ELSE PRINT 
#9,2*10+10; "degsrassgr (("+5TR$slalzı)+ 
-"+5TRE (bh (ZI I 72 C"+STR$ Ch iz I I +" — 
"+5TR$ lab (zI)+"I"ZI: FOR ji=1 TO 180"+E 

ext$#tz)"s:DORIGIN "+5TR$ (a (z)) +", "+ETRS$ 
(ab {z})3 

1280 PRINT#7,":PLOT ra#=5IN(j} ‚ra*C0St 
33 ,"+STRECF (ZI) +" sPLOTR Zerarlost90+j 
3,0, "+5STRE IF (ZI +" SNEXT j" 

1290 IF htz)=6 THEN PRINT #7,2*10+103 
"GORIGIN 0,0=PLOT -10,-10,"+5TRFfif (z)} 

+": MOVE" +STRE CH (2) 34" „"+STRF DC ZI +" 
: TAG: PRINT"CHRS (SI) tert (z I CHRE (34) "4 
: TAGOFE" 

1300 NEXT z 

i%16 CLOSEDUT 

1320 z=rxı60T0 250 

1350 '#* Hilfs-lenue #es 

1340 WINDOW SWAP 2,0:ELS:PRINT" 

Hilfsmenue" 

1350 PRINT"L —r Zurueck zum Zeichnen 
Li 

1340 PRINT"Z -—> Bild aufbauen“ 

1370 PRINT"3 -7> Saven"sPRINT"3 -—> £ 

etzten Schritt ioeschen” : 

1580 WINDOW SWAP 0,2 

1390 in=VALCINKEYSIRIF in=0 THEN 1370 
ELSE IF in=4 THEN z=z-1160T0 230 ELS 

E 9N in GDOTG 250,1050,1170 

1400 '#=*= Haupt-Menue ### 

1410 WINDOW SKRAP 2,0: PRINT“ 
Zeichen-Artens" 


1420 PRINT" 4 -»> Linie 4 > 
ausgef. Kreis"z 

1470 PRINT" 2 ——-> Balken vert. 3 --> 
kKreislinie" 

1440 PRINT" 5 —-> Balken horiz. 4 -——> 


Text" 


Programme 








menu ENTER I zu EU KK EFE FE K F FF FF K FF TFT FF N 
smenum" | 
1460 LOCATE 25, 1:WINDOW SWAP 0,23RETU 390- 400: 30721 770- 7801 55490 1150- 1140: 27087 } 
AN 410- 4201 92722 790- #00: 86787 1170- 1180: 8040 { 
430- 440: 529780 Bi0- A20: HBSBA 1170- 12001 22037 
450- A602 46325 830- AO: FORBF 1210- 1220: 72827 
470- 480: 34302 850- 860: 81057 1250- 12401 74754 
490- 500: 44969 B70- 880: 51076 1250- 12603 53427 
Si0- 520: 40395 870- 900: ZAF0L 1270- 1280: 52770 
530- 540: B4685 910- 920: 74698 1290- 1200: 11495 
CHECK VI: PRUEFSUMMENG 170- 180: 5481, SSE0- 560: ZB44 930- 940: 49409 1310- 1320+. 11708 | 
170- 200: 42915 570- 580: 46553 g50- #603 67018 1330- 1340: 5658? i 
ZEILENNR.: SUMMEN 210- 220: 24438 S90- 5001 27357 970- 980: 15233 a — 
10- .20: 55996 25307 240: B1605 510- 4202 47787 390- 10003 59214 137G- 1380: 35594 
30- 40: 58732 .250- 240: 8227 650- 640: 28489 1610- 1020: 52243 1890- 1400: 79761 ° 
50- 60: 55922 270- 290: 115647 850- 60: 7675 1030- 1040: 20280 1410- 1420: 100426 
7O- B0: 10581 290- 300: 13215 470=- 480: 8430 1050- 1060: Z6B61 1430- 1440: 101817 
90 100: 20354 S310- 320: 76250 690- 7002 22069 1070- 1080: 3726 1450- 14680: 36575 ' 
110- 120: 13981 350- 340: 44312 710- .720n 15872 1090- 1100: 113236 | -—-——-----—— nem | 
507 140: 21135 350- 360: 71448 730- 740: 486487 1110- 1120: 14394 GESAMTCHECKSUMME: 42428 | . 
150- : 160: 3971 370- 380: 59719 TSo- 7408 75727 1130- 1140: Z1212 
150 FÜR a=ı TO 22 STEP Zs0ORIGIN 256, | CHECK v1: PRUEFSUMMEN: 1 
Z&4+R:DRAW 8, 9, 3:NEXT a | 
; 180 FOR a=1 TÜ 22 STEP Z10RIGIN 254, ZEILENNR.: SUMMEN F 
i0 MODE 1 264+a:DRAW -B, 6, ZINEXT a 10- 20: 10360 
26 FOR a=i TO 100 STEP 72ORIBIN 200+|170 FÜR a=t TN-18 STEP-Z:0RIGIN 256, 30- 40: 29380 
a, 296=DRAW 128, 5&, 2:NEXT a 262+a:DRAW 8,-8, ZINEXT a 50- #0r 45883 
30 FOR a=1 10-100 STEP-2:0RIGIN 300+|190 FOR a=f TD-1B STEP-2:0RIGIN 254, 70-  B0ı 51500 
a, 2IE:DRAW -168, 56, ZINEXT a 2&62+a:DRAU -9,-8, 3:NEXT a 70- 110: 31787 
40 FOR a=1 TO 200 STEP 2rORIGIN 136+1190 FÜR a=1 TO 24 STEP Zı0RIBIN 25&+ 120- 130: 45492 
a, F16:DRAW 0, 36, 2:NEXT a a, 262:D0RAH G,-8, 1:NEXT a 140- 150: 70420 
50 FÜR a=1 TO-40 STEP-ZSORIGIN 200, [2090 FOR a=1 TO 24 STEF 2:0RIGIN 254+ 160- 170: 26422 
294tarDRAW -169, 56, 3:NEXT a =, 267:DRAW 8, 8, 2:NEXT a 1B0- 190: 34250 
&0 FÜR a=ı 10-168 STEP-Z40RIGIN 200+|210 FOR a=1 10-24 STEP-Z:ORIGIN 256+ 200- 210: 74807 
a, 256DRAW O0, 56, SINEXT a a, Z&ZEDRAW -12, 8, tıNEXT a 220- 230: 78712 
79 FOR a=1 TO &0 SIEF 2:0RIGIN 200, [220 FOR a=1 T0-24 STEP-Z:DRIGIN 254+ 240- 2501 47584 
232+a:DRAW -160,-56, SSNEXT a a, 262:DRAW -8,-8, ZINEXT a 260- 270: ZO11B 
80 FOR a=1 TO-&0 STEP-Z:GRIBIN 300, [230 ORIGIN 0,0:PLOT -10,-10, ZeMOVE 4 280- » 14102 
296+2:DRAW 129, 56, S:NEXT a Qu 112: TÄG:PRINT"P-W- Soft presents" | — — --mmmen nennen 
90 FOR a=1 TO 130 STEP 2:ORIBIN 300+| ,: TAGOFF GESAMTCHECKSUMME: 58607 


2S2:DRAW 0, 64, S:NEXT a 
110 FOR a=1 TO &9 STEP ZEORIGIN 300, 


232+2:DRAW 128,-58, Z:NEXT a 

120 FOR a=1 TO 100 STEP ?:DRISIN 200 
+3, 232:DRAW -149,-5&4, 1:NEXT a 

130 FOR a-1 T0-100 STEP-2:0RISIN 300 
+3, 232:DRAW 178,-5&, 1:NEXT a 

140 FOR a=i TO 21& STEP 2:0RIGSIN 134 
+3, 176:DROW 2, 56, 1:NEXT a 


240 ORIGIN 0,0:PLOT -19,-10, 


3:MdVE 2 


72, 89: TAB: PRINT"DRAW-GENERATOR"3 =: TAG 


DFF 
250 FOR a=i 
„ Sad: DRAW 
250 FÜR a=1 


TO-17 STEP-2:0RIBIN 
O,-356B, I:NEXT a 
TO 17? STEP Z:ORIGIN 


Zu0+asDRAW —Z4, O0, F:NEXT a 


270 DRIGIN 


32, 35Z:DRAW -1h, 


8, 


l6+ta 
24, 


2 


ZR0 ORISIN 72, 176:DRAW -iä,-8, 2 





AIRFE 





G 





Compute mi 


HTER 





Ein Grubenunglück hat 36 Berg- 
arbeiter verschüttet. Die einzige 
Möglichkeit, die Leute. vor dem 
Ersticken zu retten, liegt in der 
Befreiung mit Hilfe eines wendı- 
gen Hubschraubers, den ”AIR- 
FIGHTER”, 


Meine Aufgabe ist es jetzt, mich 
arı den Joystick zu klammern und 
unter Tage zu begeben. Der ge- 
fühlvoll zu steuernde Helikopter 
verbraucht allerdings sehr viel 
Treibstoff. Doch einmaliges Auf- 
tanken pro Level ist möglich. 
Vorsicht: Nur nicht vergessen 
den Helikopter zu steuern, sonst 
sinkt er nach einer gewissen Zeit 
ab. Also los, retten was das Zeug 
hält. Um am Ende belohnt zu 
werden, müssen alle Männer ge- 
rettet werden. 


Wenn ich zu Beginn einfach ein 
wenig herumballere, kann ich 
auch ein Level überspringen. Bo- 
nuspunkte und Siegerzeremonie 
gehen aber flöten. 














EEE HER H HH FI HT HN ER 


100° 

1109" # * 
120° *= AIRFIGHTER # 
139° * * 
140° # (ec) 1986 by MER * 
1590 & # 
150° %* USW Froduct * 
17978 * 
190 ' * MUSIK by * 
i190 7 * * 
zu 7 # 2. SCHMIDT %* 
210 ' %* * 
22 RHEIN 
250 ° 

ZA ER 

250 Gasubroutiner 

ZE0 HH 


270 TLS:MODE i 
280 G05UR 359 
270 GOSUR 426 
oo GOTD 2945 
>10 GOSUB 3290 
520 SOSUB 1700 
530 GOSUB 950 
49 SPTO 930 


E50 tm 
5609 * Variablen 
370 7 Wear 


380 DIM manx (0) „many 10} ,bild$#1351} 

390 sc=0:levsichse=s100: fuesb37 

306 »=65:y=50:x1=0: yl=0:xstep=0:ystep=0: 
nub#ti) ab": hubs (2I="k 3" au=0 

410 RETURN 


420° RBB 
4530 " Zeichensatz aendern 
AAO TREE HEHE 


450 SYMBOL AFTER 32 
460 SYMBOL 99,0,126,107,96,95,102,126 
47G SYMEOL 101,0,124,102,112,112,102,126 
490 SYMBOL 102,0,126,102,112,112,96,96 
490 SYMAOL 104,0,1062,102,126,176,1072,102 
500 SYMBOL 105,0,126,24,24,24,24,17& 

510 SYMEDL 108,0,96,96,76,94,107,126 

520 SYMEOL 111,0,1764,107,107,107,102,126 
550 SYMROL 114,0,126,102,102,124, 108,102 
540 SYMBOL 115,0,125,96,96,126,6, 126 

550 SYMBOL 103,0,126,102,96,110,102,126 
S&0 SYMROL 117,0,102,102,102,102,102,126 
570 SYMBOL 118,0,102,102,102,102,60,24 
530 SYMROL 120,255,255,175,195,195,195,2 
55,255 . 
590 SYMBOL. 121,93,107,54,28,9,28,20,54 
600 SYMBOL 125,0,31,63,113,117,113,63,31 
:SYMBOL 125,0,248,257,74,94,78,257,248 
&10 SYMBOL 97,127,1,7,8,9,7,2,6:3YMROL 9 
9,255,192,290, 136, 176, 740,37,49 

620 SYMAOL 91,64,2,21,73,29,41,2,36 

630 RETURN 


[1 Te Eee 3 2 221227 2 2 21272 .272 2027222727202 
5506 ' Alles richtig gemacht 
HOHEN 
&70 IF sc{6750 THEN FEN 1:MüBbE 1: TAGOFF:= 


FRINT EHRFFZEICHRE (0) 5; eLÜCHTE 15,12: FRIN 
T"ECH,SO NOT !!!":PEN GrEND 


Bo FEN 1:MöDE 1: FAGSOFF=TFRINT CHR&CZIICH 


RO) 3 
670 DATA YOU," AM,E," "B,R,O,K,E 
DRS TE RE are 


700 RESTÜRE 890: LOCATE 6,10: FÜR re=s1 TO 
S0:READ BILDF:PRINT bild#z SOUND 1,70,1, 
7:FOR tim=i TO FO:NEXTINEXT 

710 FÜR posi=400 TO 150 STEP-2: TAG: DALL 
&ED19:MOVE posi „200: FRINT”ab "::S0LUND 2, 
500,8,15,0,0,1:5DUND 1,0,10:NEXT 

720 LGCEATE 13,13: PRINT"LONGRÄTLULATIONS a 
b"3: TASOFF 

730 RESTORE 750:FOR saun=1 TO 11:READ me 
In,taenge 

740 SDUND 4,melo,laenge,15,1,1 

750 DATA 478,50,0,3,478,20,0,2,478,20,0, 
10,358,50,0,10,426,20,0,15,319,75 

7850 NEXT 

770 TABOFF:LOCATE 16,17: PRINT"SCORE"; Sea 
FEN Z+LOEATE 19,21: PRINT"DEL"TPEN 1 

zaa IF INKEY(7FI=O THEN 790 ELSE 780 

79€ ELS:PEN 2:POKE &B1CB,0:2LOCATE 8,5: FR 
INT"AIRFISHTER":POKE &BICH,I:PEN I 

5800 LOCATE 17,9:PRINT nams+"," 

810 LOCATE 3,13: FRINT"TRAGE DICH IN DIE 
"HALL OF BEST’ EIN” 
9320 LOCATE 10,172 INPUT 
linams 

36 IF se# 7009 THEN LOCATE 18, 21:PRINT"P 
LATZ - 8” ELSE IF se<7500 THEN LOCATE 16 
„21: FRINT"PLATZ — &" ELSE IF sc<H006 THE 
M LOCATE 158,212 FRINT"'RFLATZ — #4" ELSE IF 


"YOUR NAME = ",ha 
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sc<8500 THEN LOCATE 18, #3:FRINT'FLATZ - 
840 IF sc}=BS00 AND sc{F006 THEN LOCATE 
168,21:PFRINT"PLATZ — 2” 

850 IF sc}=P00G  THEN LOSAFE 16,21:PEN 2 
PRINT "PLATZ = "I:PEN ET 

Ba0 RESTGRE BBU:FOR soun=1 TI 17:READ me 
lo,laenge 

870 SODURD 4,melo,laenge,i5, 1: 1 

890 DATA 474, 210] 0,8 „478,20, 0,2,478, 20,0, 
10,358,50,0, 10, A2b, 20, OD, 15,319, 75 

BF0 NEXT: LOCATE 24,21: PRINT"L" PEN 1 
"ron IF INKEY(79=0 THEN 710 ELSE FC 

71% CLS:LOCATE 10,122 PRINT"ANDTHER GAME 
iJ/nI 7 

720 IF INKEY(35)=0 THEN RUN ELSE IF INKE 
Yi46)=0 THEN ELSHSYMBOL AFTER 256:END EL 
SE #20 


39 7 HH 
746 ° Bewegung Hubi 
Fo WERRFRFNKHRTNR 


20 FOKE &B3I9,0: PRINT CHREKETISCHRE CIE 
"TR 

770 z=PEEK (&B4F4):GOSUB 1180: IF fue=144 
THEN z=0 

790 IF xstep=ö AND ystep=0 THEN t=t+1r IF 
t>260 THEN t=0r ystep=—1 

#90 IF z AND 1 THEN sou=spu-i:650SUB 1320 
ıystep=ystep+L 

1000 IF z AND 2 THEN soussou-1:GDSLB 132 
G:ystep-ystep-t 

10160 IF z AND 4 THEN scou=sou-1:G0SUB 177 
Orastepsustep-2 

1020 IF z AND 8 THEN sou=snu-1:G0SURB 132 
O:xstep=<step+z 

1050 IF z AND i& THEN SOUND 129,0,20,15, 
2,0, 20:MGVE »+17 ,y-14: DRAW x,y-S0:POKE % 
8338,240:MDVE x+17,y-14: DRAW x ,y-50:1IF y 
-507=1 THEN lev=lev+1:IF lev># THEN 640 
ELSE: TABOFF= PRINT CHRE&LZSICHRE (N : :5OTO 
1700 

1046 zexrtastepiy=ytysteps IF sou<Z THEN s 
auer 

1050 SOUND 2,500,10,15,0,0,1:SDLUND 1,0,= 
su:sou=sou+tl:IF sou>16 THEN sou=io 

1059 IF y>350 GR yi32 THEN ystep=0 

1070 IF x>&08 THEN z=408B: xstep=0 

1980 IF y<26 THEN y=Z9J:4ystep=o 

1070 IF »<O THEN »=0:xstep-ü0 

1100 res=res+ti1: IF res=15 THEN res=G: GOSU 
B I220 

1110 MDVE #1,y1:PRINT hub#ti}z 

1120 FOFE &E259, 240; MOVE »,yıFRINT hub#t 
133 

1150 IF TESTIx+10,y-14)=0 GR TEST(S+22,Y 
14)=0 THEN 1560 

1140 IF TEST(x+10,y-14)=5 OR TEST {x+22,y 
-14)=3 THEN GDOSUR 1370 

1156 IF TEST ix+2,y}=0 DR TEST (H+50,y)=0 

THEN 1560 

tiöb IF TEST(x+10,y-14)=2 OR TESTIH+RT,y 

-14)=2 THEN GOSUBR 1500 

1179 xi=ensylsyeßsoto 970 


ı129 VERHHREENERERR 
1190 ° Reste Ioeschen 
1209 BR 


1210 TAGSOFF3PRINT CHR# (2ER) ;CHRE (CO): 

1220 IF m=1 AND x<3525 THEN LOCATE manx (5 
> „many iSd sPRINT" "720-0: Gu=ourl : 
1230 IF m=2 AND x<525 THEN LOCATE man (4 

3 „many tA)zFRINT" "rım=O: ou=ou+l 

1240 IF m=3 AND x<575 THEN LOCATE man (3 

} „many {ZI PRINT" "z:melr ou=cur+l 

1250 IF m=4 AND #525 THEN LOCATE manx (7 

3 „many (DI :PRINT” "zrm=üsousau#+l 

1260 IF m=5 AND »>75 THEN LACATE mans (1 
„many Ci}: PRINT" "5 2m=d:ou=nu+il 

1270 IF m=& AND »>75 THEN LOGATE mans (& 

?,many (S3sPRINT" "3:m=0:0ou=au+l 

1290 IF 0=1 AND x:75 THEN LOCATE fası ,‚f 

asy:FRINT" "soo 

120 IF Gau>=5 AND x72720 AND y>345 THEN 1 

ev=levtl=iIF lev>? THEN 540 ELSE sc#sct1l5 

0: fue=637:B0TG 1700 

1300 IF tank=1 AND x>75 

X,fasyıPHINT" "sr 

1210 PRINT CHRFFZIIECHRFELI HE TAG: RETIMN 

1320 7 RER 

1330 " Fielverbrauch 

ITIG tt RER 

2550 IF fue}135 THEM MBYE fue,2:DRAWR 9, 

10,2: fue=fue-2:ELSE SOTD 1830 

3240 POKE &ET38,240: RETURN 









THEN LOCATE fas 






1770 ERRHREEEKFHRFEHT 
i796 Maerner aufnehmen 
1290 


KERFEHFENFRTRERTEN 





Gompute mib 


Programme 


‚1400 IF m=0 THEN sc=sctiüü:s=1 


1410 IF x>500 AND yXiSo THEN m#l 
1470 IF x5500 AND yı200 AND y>105 THEN m 


1430 IF »>500 AND yXZ250 AND y>200 THEN m 


1440 IE x>500 AND y>P5ob AND y<350 THEN m 


1450 IF xX100 AND y>250 AND yi{Z350 THEN m 


1460 IF x<100 AND y©200 AND y>130 THEN m 
1470 LOCATE #1,10,2:FRINT #1,sc 

1480 IF s>O THEN FOR t=15 TE A STEP-0.5: 
SOUND 1,379, 10,t:NEXT===0: RETURN 

1490 RETURN 


1500 ONE E 
1510 Dilfass beruehrt 
1570 2 2 202 2 2 207 22 2 2.2 2002 


iS30 IF x<146C AND fue<&00 AND tank=O THE 
W TASOFF:FRINT CHRS$(2SICHREF (OF; sfue=637r 
pe=l:fu=s1:G605UB 1750: TAG 

1530 IF sun AND tank=0 THEN FOR H=15 TO 
8 STEP-0.5:50UNP 1,478, 10,H:SGUND 2,459 
‚10, HaNEXTE- o=1:tank=ı 

550 RETURN 


1560 RER 
1570 ' Kollision 
15980 ' warn 


1599 DUT &BCOO,E:0UT &BDOY,I:FOR i=t15 TO 
5 STEP-0.2:50UND 1,0,5,i1,2,0,10:MDVE x, 
yıFRINT"CE"3:NEXT:OUT SBCOO,S:OUT KEDOO, 
Zim=O:PEN 13 

1800 TAGOFF=EFRINT EHRF(ZSISCHRFE(ON GG Sfue= 
fue-30:FÜR a=637 TO fue STEP-1:PLOT a,2: 
DRAH a,12,2:50UND 1,3,1.5,15:NEXT: IF fue 
“135 THEN GOTO 1630 

1810 LOCATE 1,1:G0ü5UB 1770 

1620 GOSUB 400:6070 9750 


1530 Lo Se 2 2 22 2 225 
1440 " Kein Fuel Mehr 
1550 KRÜREREERRTERE 


1460 TAG:OUT BCOO,8:0UT &BDOG,1:FOR i-1 

5 TO 5 STEP-0.1:50UND 1,0,5,1,2,0,10:M0V 

€ x,„y:PRINT"ET"SSNEXTSOUT &ECOO,8:0UT &E 

DOO,Z:PEN 13 

1870 IF sc>hse THEN hsce=ssc; LOCATE #1,54, 
Z:PRINT #1,hsc 

1580 TAGOFFSLOERTE 12,13TPRINT" GAME 
UOVER" 

1670 IF JOYi{O}=1l& THEN 2810 ELSE 16909 


1700 2 2 5.2 232 2127222277 272 
1710 ' Eildschirmaufbau 
1720 [2 2 2 205 2 2 272 272 2217 2 


1730 PRINT ECHRFÜZSICHREF LONG 3 TABOFF: INK 1 
„2a: INK Z,11:INK 3,4: INK 6,0: BÜRDER 1:PA 
PER Oi pe=1:tank=O:Ffu=ü:rPEN 1:MODE 1 

1740 WINDOW#T ,1,40,1,3: PAPER #1,2:CL5 # 
ıFLOT 0,352, 13: DRAW 439, 35272 DRAW 639,397 
:DRAW 0,399: DRAW 0,352: WINDOW #2,1,40,25 
‚=S:FAFER #2,2:5C0L5 82:PLOT 0,0,13:DREW & 
SP,O:DRAW 6397, 15: DRAW 0,15:DRAW 0,0 

1750 LOCATE #1,53,2:FEN 3, 1:PRINF #1,."ScC 
ore :"55CHLOCATE #1, 16, Z: PRINT #1,"leveil 
="zlev:LOCATE #1, 28, Z:PRINT #1,"high ee" 
;hsc 

t7&0 LOCATE #2,3,1: PRINT #2, "fuel :":FOR 
a=fue TO i5S STEP- 2:PLOT a,2,pe:DRAW a, 
1?-SOUND 1,3,1-.5,35:NEXT asPLOT 0,0,13:D 
RAk &30,0:FLOT 9,15,13:DRAW 640,15: IF fü 

=1 THEN RETURN ELSE FÜR H=15 TD 8 STEP-O 
.5:50UND 1,478,10,H:NEXT HK 

1770 ON 1ev GOSUB 1810,2040, 2310, 2560,34 

70,3720,.3770,4220,4470 

1760 PEN 2:FOR i= -1 TO &:LÜCATE manx Ci’,m 

anyti)=PRINT "Y"sNEXT:FEN FıFOoR i=i TO 5 
:LÜCATE fasx,fasy:PRINT "{3"zNEXT 

1770 IF 1ev}1 THEN GOSUR 400:50T0 930 
130G RETURN 

1816 PRINT:PRINT3PRINT:PRINT "xxx 
KERANNNKESNESHNAKRNNNANNANKENMN 


1826 PRINT "xxx AHRHNNEN 
Kt 
1330 PRINT "ax MAMH 
PPoR 
1949 PRINT "xx N KKANK 
NENNNNMKKHHRME 
1850 FRINT "usw KRANKNEM 


RERKRHRRREKNT 


1960 FRINT "kuxımex HRAKNUNKHMK 
RUHNNINHNHANE 
1970 FRINT "uxxnxuH AR RHKH 
\ RM": 
1330 PRIRT "xx ER KANN 
nam 
189% PRINT "xx xx KAXH KAK 








programme _ 


EKRENNNENNEEM 
1900 PRINT "XXxnXhx 
KUXSNKENKENEN"G 
1910 PRINT "sauxxxcH 
NNMNHANNNHAN"G 
1920 PRINT "axuaXaH 
Kx”3 
1730 PRINT "3% 
HRUE 
1740 PRINT "s% 
KEXNNENKNNKHHUF 
19509 PRINT "xxaaxH8 
HAXNRNAXMEHRTR 
APE0 PRINT "XRAXnKSRRRKaNNENERHHNN 
KANXKANKMEANTE 
1F70 PRINT "RXKHuNniRKKAnKKRRERNHaN 
RR": 
1980 FRINT "xx 
Rn"f 
4397970 PRINT "xx 
AHNNHKNKHNENN 
2000 PRINT "xx 
RHANHNEEKANNUN 
2510 PRINT "xx 
KSERERNENAREETN 
2020 RESTURE 2030:FOR i=1 TO 5:REABR manz 
<i) „manyf{3)rNEXT 
2030 DATA 4,7, 3646136311, 36, 16, 321,41 
7 
29040 Fası=dıfasy=1Z 
20950 RETURN 
29&0 PRINTSPRINT:FRINT:FRINT "xHxxnKX 
KARMENEENNSENNNENNNSMNINIEEMNG 
2970 PRINT "XuHXuXH 
* um": 
2080 PRINT "xx 
x a”"g 
2090 PRINT "xx 
x KAnKXaa"s 
2100 FRINT "auuxkax 
ANAMKNK"G 
z110 FRINT "axaxmax 
KENXXHM"S 
2120 PRINT "axxxHax 
x a": 
2129 PRINT "xx 
x ax" 
2140 PRINT "xx 
KARKRHK", 
21530 PRINT "sxaxaxax 
RANRNAR', 
2159 PRINT "AxxRKRn 
x MEHKKAR"E 
2170 PRINT "anna 
Ro. Ra”; 
2180 PRINT "xx 
H KR": 
2179 PRINT "xx + 
KHAKNKHRRNKEWUG 
2209 FRINT "aaaxaen aM 
KENUNENNKANME 
2219 PRINT "seuaxHn 
KAHNHENNMNEMUN 
2220 PRINT "xXXX8KH 
x ut. 
2230 PRINT "xx 
x RR" 
2240 FRINT "xx 
EXAHXKK'S 
2250 PRINT "xx 
AEMEREMTE 
2240 PRINT "xx 
KAXNKINENRMENKNS 
2270 RESTORE 2280+FOR i=1 TOD s:READ man 
fi} „manyti)sNEXT 
2280 DATA 4,7,36,6,355,11, 356,16, 56, 21,41 
7 
2290 fası=4: tasy=i2 
Z300 RETURN 
23510 FPRINF=PRINF:PRINT:PRINT "HxKKHHRaaH 
KRRRNNEEHKNKNNNENNERNKEANNNEN"G 


KEANE Lt,r3 


KANK 


KAX 


KRANNHHNAM 


KEXHKHHTNN 


HK 


EHK 


FH 


RAR 


KRERKRHNNKRKNHMNIKRAHN 


KINKARKHRNNNENKEHENNHN 


KIHH 
HAHN 
RHUNENHNNEN 


4.#3.} 


KEXEHRAHAN 


MHNM 
HINNHENHMAN RANH 


KAFMRNEHNN 


KAHR 
MANRKHAHKA KAHAKH 
KRHRNANFEN KARN 
KARH 
RRXH 
BHKHHNHENUN AHANK 
RHKSMNHHEN HAXK 
KHRFERNHEN KEAKR 
KHERKENRNNHN 
KAXSAHRAKH 


KHHUNRSHRHNHHRINANKNHNN 


2320 PRINT "RARXHXHaKcN ax 

x RR” 

2330 FRINT "xx Eu HK 

x ax": 

7340 FRINT "xx KH OKHHNANANKREDO ME 
KRRURKRERNR 

2350 PRINT "aunKmen 88 ax 

* ARXAAHKRN"S 

22360 PRINT "Ranxıın Ax Ei 

* ANKuHRK': 

2370 FRINT "sauna AKKOKARENKESE an 

x vum": 

2380 PRINT "x HuH xx 

H an'"g 





2270 FRINT "xx RN KR 
x RAXNSKHKUS 
2400 PRINT "axxxxx AEX KEHKREKK KX 
x KENNER 
2410 PRINT "aux RAM Kr 
=“ REXNEK"z 
2420 PRINT "xxnx KEN Hr 
= a" 
2430 PRINT "ax AHX AHHHNX HH 
x ax": 
2440 PRINF "x KUH »x 
x KANNENEME 
2450 FRINF "RXaNıH HX8 NH 
Fi KANHNAE"S 
2450 PRINT "ExkuH REN REN ER 
x EXEXXa0, 
#470 PRINF "aux Er HH 
” Ax"R 
2490 FRINF "ax RER HM 
# Rx" 
24970 PRINF "ax ANKHRANH HRHANKNNK 


” KAAKKKAXYZ 
2500 PRINF "xx 

REKRNKR"TE 
2510 FRINT "x 

HAXAKA"T 
2520 RESTORE 2530: FOR 3=1 TD A:READ mans 
(1) .manyti}zNEXT 
2536 DATA 4,7,36,6,36,11,38,16,26,21,431 
7 
7540 Fasz=4:ı fasy=12 
2550 RETURN | 
2560 PRINT: PRINT: PRENT:PRINT "sxaxxXHx 
KENKRNNMNNAKNINRKHNRNNNNNNNANNMTGS 
2570 FRINT "xaxsKn® 

PPuR 
2580 PRINT "nx 
ur": 

2500 PRINT "x 
EKHHNKNMRENK"R 
Zact FRINT "om 
KANMNENEMNNNKE 
26510 PRINT "axxnak 
KENMNERRIHNSEUR 
Z&20 PRINT "zum 





RANNKHENRARANNNNH 


KENNHHNNIARNÄRKNRH 


HAREKHNNENMNHNNNN 





Pro 
2630 PRINT "xx 

PeRE| 
?&40 PRINF "xx KEENN RKANHHNNKH 
AHARRKHNNNNE"ES 
R65G FRINT "namen KAXnH EKAHANAKHNK 
KHANNAHAHRAKK"Z 
2660 FRINT "naxnans RANKK KHERNHHÄNN 
AAANHNMNKAN 
2570 PRINT "saxxxxx KAHN 

B PrUR 

24830 PRINT "xx KEENM 

RR”; 
2690 PRINT "x RANK KARRRKEER 
RENSRHAKKARNUG 
2700 PRINT "axsnne ARNHN KARAKMNIN 
KURKNAKKNKKIEG 
2710 PRINT "axuunen BHXUM KRYMNNHEHN 
KAANNNXENENM"R ö 
2720 FRINT "xxxxxxk EXUHM 

RR": 
2739 PRINT "ax ARHNM 

PEICH 


2746 PRINT "xx 
KRUNNNENNENK"E 
2750 PRINT "ax 
MKEMNNNHHNNENS B 
750 FRINT "xa KHANNKENNNNNNMNNM 
ACHNNANNUNEETS i 

2770 RESTBRE 27B0:FOR i=1 TO s-READ mans 
(i),„manyti)sNEXT 

za0 DATA 4,7,26,5,36,11,36,16,36,21,4,1 
2770 fasıs4dıtasy=i? 

2900 RETURN 

ZB1lO TR 

2820 ” Beiohnung Ja 0. Nein 

2830 FREENET HEHE 

2846 MODE 1:LDCATE 17,4:2FEN Z23FRINT"A TI 

RFESHTE R":LOCATE 12,8:PEN 1:PRINT 
"Your POINTS .. v7"35ceLOCATE 12,115 FREINT"T 
HE HIGHSCDRE: "shsce 

2950 IF scHiO00 THEN LICATE 2,16:5FEN 3:P 
RINF nam#-FEN 1:LOCATE 10,163 FRINT"IT CO 
ULD BE BETTER NEXT TIME "" 

2840 IF Sc=hse OR 5252500 THEN LGCATE 5, 
1&8:PEN S:PRINT nam&:PEN 1:L0CATE 11,16:P 
RINT"YOU "RE VERY GOOD THIS TIME !" 

2870 IF SC{1000 THEN LOCATE 3,18:PEN 3:P 
RINT namtr PEN 1:L0ECATE 11,16:PRINT"’YOO'R 


HKENHEHNNNHHNNNNN 


ARANEHMNNHNKSHNNN 


Gompute mib 


E VERY BAD THIS TIME 
2890 LOCATE 7,20:FEN Z2=FRINT"KWILL YOu TR 
YıIT AGAIN <I/N> 7® 

2876 at=INKEYS: IF at="" THEN 2970 

2900 IF af="j" OR a$="J" THEN RUN 


rıaım 


2916 IF a$="n" OR as="N" THEN INK 7,24,0 
ıSFEED INK 3D,30:FEN 3:LOCATE 18,23: PRIN 
T"500D BEY":IF INKEY$ZS"N” THEN PEN G:EN 


D 
2920 IF a#75"j" THEN 7890 
2730 GOTO 29709 


2940 KRERRHREH 
2950 Titelbild 
ZIED 7 RE 


=770 CLS:MODE i 

2780 FEN Ss FOKE &BLGB,O:LOBATE &,4: PRINT 
"AIRFIGHTER"IFOKE %BICB,1 

2970 FEN 1:LDCATE 16,8:PRINT"FRESENT BY" 
999 LICATE 17,22:FEN ZEPRINT"DEL"TPEN 1 


30103 LOCATE 11,12:3FRINT"x a KNR 

Eu 

FZa2n LOICSTE 11,13:PRINT"ax zu m "x = 
gr 

3030 LOICATE #2,14: PRINT’ x HN NK 

ur" 

3046 LGCATE 13, 15: PRINT" Kuh “" 

Z050 LGCATE 11,16: PRINT" won De ‘2 

3056 MK-595:FOKE FR33A,0: PRINT CHRFIZTDIE 

HR&(HI 2: TAG 

ZO7G EVERY 3 GOSUR 3070 

3080 GDOTO 5116 

3096: Mk=Mk-1:MEVE Mike „Far FRINT’MER"S SPORE 
&B338,240: IF MkK=5 THEN MOVE mk,„95: PRINT 
"MER": :POKE %B338,0: Mk=595 

5100 RETURN 

Sı10 IF INKEY(7M=O THEN MÜVE 789,48: PR 

NT"DBEL"Z:PEN 1:60T0 31290 ELSE F110 

Z120 ENY 1,=11,7009:ENV 2,1,15432153-159 

sENT —1,2,9. 75,5, 3,0. F5,8:1ENF 24232345 

Zur, 1,1537,31371,7 

3130 BMUS=4: XMlS=47B8: RESTORE 3200 

3140 READ AMUS: IF AMUS=0 THEN RESTORE 52 

10: RERD ‚AMUS= IF BMUS=4 THEN EMUS=2 ELSE 

EMUS=4 

S150 IF AMUS<>1 THEN SOUND 159 ,AMLIS#2,70 

»7,3,1:50UND 137 ,AMLS#BMUS,150,7,1,2 

3150 SDUND 1,XMUS,24,10,7,2=1F XMUlS=478 

THEN KXMUS=377 ELSE XMUS=478 

5170 IF INKEY(77I)=0 THEN A=REMAIN (0) :50T 

o 310 

3180 WHILE SBi41} >127:WEND 

3190 GOTIJ 5140 

3200 DATA 1,1,1,1,119,141, 50, 1ai1y,1y1ylyl 

„A19,1,1,B0,1,1y1y1 2,1 

3210 DATA 119,897,80,71,30,1,95,1 

3229 DATA 1,119,89,980,71,80,1 

3230 DATA 1,1,119,89,80,71,90,1,95,1 

3240 DATA 1,95,89,95,119,119,1 

3250 DATA 1,1,60,57,71,80,63,1,80,71,1,8 

9,80 

5260 DATA 1,60,65,71,80,653, 1,80, 71,14,99, 

80 

3270 DATA 1,95,89,95,119, 119 

3280 DATA 1,1,1,1,.1,1,1,0 

FBEIO TREE 

3300 * Instructionen 

ZE10 7 HR 

3320 PRINT ECHR$1ZSICHRF 0) 3 : TAGOFFIMODE 

1:LOCATE 11,2=PEN ZEPRINF"TAIRFIGH 

TER" 

33230 PEN 1:L0CATE 14,56: INPUT "NAME: 

mF 

3340 IF LENinam#>>7 DR.LENfnams}21 THEN 

3290 

3350 LOCATE 14,5:PRINT"OREY,"SLECATE 5,1 

O:PRINT"INSTUETFONS „ JA ODER NEIN 7?" 

7350 FEN Szas=iINKEYF: IF as="”" TMEN SIA0 


Nuna 






3772 IF age"g" OR af="3" THEN 3400 
3390 "OR af="n" THEN RETURN 
3390 TI" THEN 3340 


3400 LOGCATE 14,12:PEN 3:PRINT"INSTRUETIG 
NEN";LOEATE 29,10: PRINT"IA" 

A410 FEN 1:LDEATE 5,15: PRINT'DU MISST VE 
RSUCHEN, BEN Airfighter "::FPRINT” BURG 
H BIE HREHLEN ZU STEUERN UND ";:FRINT" 
DIE MAENNER Zi RETTEN,ÄBER PASS "zrPRIN 
Ft AUF DIE WAENDE AUF ! FALLS BEIN "3;: 
FRINT" fuel AUS BEHT,KANNST DU DAS oil 
3420 PRINT" FASS HDOLEN.UM DAS level ZU 
UEHER-";:PRINT" SPRINGEN MUSST DU AM AN 
FANG ETWAS";:PRINT" HERUMBALLERN, BEKOMM 
ST ABER KEINE ";:;PRINT" PUNKTE DAZU. 4 
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rıın 


IEL. SLUECR 


2430 IF INKEYE(>"" THEN RETURN ELSE 3430 
344000 ser 
3450 ° Zusaetrliche leveis 
BO RRRRHHTE 


5470 PRINT:FRINT:PFRINT-FRINF "eaRnmeRn 
HUNRHNHEHRAHERMNKNNENKNINNANKER TS 
"um 
Er 
"up 
EM": 
"HH 


2480 FRENT REN 


7470 FRINT AHH 
3500 PRINT 
BARRRIOSOUTE 
3510 FRINT 
KANHMSHNNENS"S 
3520 FRINT "xaxkcanı 
KHAKENHNRNEANS 
3529 FRINT "xXkkSHNK 
RUF 
[pen 
rg 
3950 PRINT "x# 
KRARRENNERERMUT 
S9a0 PRINT "RKaXssE8 
SRAHKKRHAKKHHN”G 
Zara FRINT "xaxsanın 
BENKERNENNEN'R 
SS80 FRINT "ARAHKAaXNN 
ua; 
en 
Rene 
Sa00 FRINT "xx 
HKENHENHNHNNMNS 
F610 PRINT "unzmnncH 
ARNNNNMENSEMENN 
S6rO FRINT "RxnuseıH 
KENKNANNKUNK"E 
3430 PRINT "raus 
nu’ 
NENNE 
zu": 
3550 PRINT "sıxx 
KIHHRNNHENNS"R 
Zba0 FRINT "xe% 
HANNNNNANSNMTS 
3470 PRINT "ax 
ANMARHRUNNMKNTE 
3580 RESTORE 3590:FOR i=1 TD G:READ man 
ti) „many ti):NEXT 
360 DATA 4,74,36,6,26, 18,36, 10,50 821, 4s 1 
7 
3700 fasx=4ıfasy-i2 
3710 RETURN 
3720 PRINTıPRINTIPRINTEFRINT "aRaaxaar 
KANNNKENSHRHAENEEENHHENNNEMMNNNTS 
3730 PRINF "naxxs 
HA" 
ya 
wu": 
3750 FRINT "xx 
KAKNNAS"S 


BEN BHYMNBHH 





Kkanme RAR SKRANHHK 


u. KANNKMHN 
‚Fra FRINT 
HRA KAKNKRNHNAX 
KEX RHARKNKRAHN 
HH HEAHNASARAE 
REN 

35979 PRINT SH 

KNRENHSHNENENENNNM 


HEHAHRNHAKKRKHANENN 


KAHMHAHNHNNEKHHRN 


3649 FRENT 
KENHMHNHHRHRNEENNNN 
HERRMHRNNMRIOOCHHHNNEN 


KEARHHARNRNNNNMNHNMANRH 


3740 PRINT 


SFab FRINT "Verka 
E01 KAHANn'S 
3770 PRINT "sarunkKHKinuH MIN HRHNNNNHNKNEN 
KR vun": 
3780 FRINT "uusuwuuruunuuNHnuHANKAnNHNNn 
RAN vn" 
3797G FRINT "ax 

satz 
3306 PRINT "xx 


KANHHEN"S 
FRINT RX uRRHaR EHEN RENKNANNENN 
Kaumu'z 
FRINT Fruxmskant HEN CKSKHEANNNNKAN® 
HH KAMM 
FRINT "RYayusuN NEE NNNNMKNEANSENMN 
Eu 
"AH 
KK" 
PRINT "xx 
KHEKENETE 
3860 PRINT "RreeonmioontNSMENMKENSNEENNNN 
x HENKENVE 
3870 FRINT "xanaexmmiknunniNHNMENiRHMN 
Hu AXHNK'G 
3880 PRINT "NKHSHHKaNcKRENHHHNERHHNNKHENK 
MAX nm’ 
3890 "nunn 
an 

FRIST "Sa8® 
KANNAKK” 
SP10 PRINT "aaax 
KENNRKKERHKNM"S 
3920 FRINT "xuxx 
HENMKNHRHNMMR 
3939 RESTORE 3Ya0:FüR i=1 TD s:READ mans 


PRINT 


PRINT 


SF00 





KEAKEAAR 


FERINKRERKRKHERERÄAKKINN 
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ti) ,manyii):NEXT 

3940 DATA 4,7,36,.6,56,11,36, 16, 36,21, 4,1 

7 

3950 fası=A: fasy=1?2 

ZI RETURN 

3979 PRINT:PRINT:PRINT= PRINT "zaxmunsme 

MENNENHNREEHUNENNNENNHMSNDEEETS 

5980 PRINT "x» 

Re", 

"ax 

nn"; 

#000 PRINT "x 

HAHNNEANNERMTUS 

4010 PRINT "oem HNKHN 

KASHNNNNEENNNE 

A020 FRINT "SSHHHHHNENNRUHHRENN 

KENMMENKHENM'NR 

A030 FRINT "SAXunuuuHHncKNuNHHnH 
yet 

4949 PRINT "xx 
Bu", 

ao5a PRINT "x 

EARKANKMEKEMTT 

4050 PRINT "RXHNKKERENSHRNHNKHnN 

KANKKENKERHNK"S 

4070 FRINT 'RRAYHKHRKENKNANAHENAK 

BARNSKHNEEANG 

A080 FRIENFWOENKNESHENMECRHNKRUNKEN 
Br 

4070 PRINT "xx 

vu": 

"un 


79770 PRINT 
KAERKKH 
KRANSH 


KUXHM 


KAHN 
RAR 


RAN 


4100 PRINT 
YRHXNNMNESHMH 

411G FRINT "USER unKKNKHNHRNKANNEAN Rx 
KASKNERNENMENT 

4120 PRINT "SAxkamtNkiHkNHHHRNERMEHN x 
NRANKEREHEENE 

A136 PRINT "Nassau HHNainNHRmN 


KR, 













xH 
4140 FRINT "ayax 

Re": 
4150 PRINT "ax E 
KEMNKNUMMNNNS 
a1&0 FRINT "xx KRRENKANNNHNRENNEEN 
KANNENNEMEHM"R 
4170 PRINT " KNNNENUMHNRNENNENEH 





RAHKHRENNEEN" 5 

4180 RESTORE 4190:FOR i=1 TO &r:READ manx 
(i} ‚many ti):NEXT 

4190 BATA 4,7,3646, 36,411, 36, 16, 36, 21,441 
7 

4209 fasxı=4: fasy=17 

372410 RETURN 

4226 FRINT:PRINT:FRINTIPRINT "eawunınH 
KAXHENNKANHAKHRHNEHNENHNMSNEEEE NG 
















4230 FRINT "naxxH RHASKNHNNMEHNN 
ERAH Fir 
4249 PRINT "xx HKRANRNNMNNN 
HAX Sa": 
4250 PRINT "xx KEAAKNARN 
r RRUMHNH"S 
A240 PRINT "RanKnmaumnanen KHSARRM 
” RANENM, . 
4279 PRINT "SSSKRuHNaR Kahn KANKHN 
KAXAXAHUG 
A2B0 PRINT "SkunnscHnnkaNnnk KASX 
Peg 
427G PRINT "ax ax 
IT 
43c9 PRINT "xx 
KHNHMNNMS”E 
Z10 PRINT "SuHHHmiRHAHKRaNHHr 
KRANKEN" 
320 FRINT " IKSNNHSRNNNNKHR Er 
NANMENHUN 
42309 PRINT "mOiHncHnuNiHHeN KK 
RH”E 
4350 FRINT "ax KANHHNH 
RN"4 
4350 PRINT "ax HANNAH 
m HERHHNUS 
42359 PRINT "RAuKnınıNnSaHnHe KUNKKHNM 
AR NRARMUs 
4270 PRINT "sutenzunmnnne KNXHNNHRM 
NAH Mpeg 
4350 FRINT "uxExHucHENnaH KERHMNKNNM 
NUNM BuXt: 
3390 FRINT "ax HEANKENMMENM 
KANHN Rutg 
4400 PRINT "ax HEANHNNNNEHN 





KAMUNKENHHRHUN 
44109 FRINT "x 
HKANNKRNHHHHRUN 
44203 PRINT "x 
HAHHRGDIHMHNMG 
4439 RESTORE 4440: FÜR 


EAHSKERANKNHAÄH 


RMHMEHHNNNAHAN 





ı=1 TO S:READ manx 


Compurhe mi 


programme 


ti} many ti}:NEKT 


4440 DATA 4,7,76,6,26,11,26,16,36,21,4,1 
7 


4450 Fasy=4:ı Fasy-iz 


2450 RETURN 

4470 FRINT=FRINT:PRINT:FRINT "uxeusnenn 
HAYHANHSHHHKRKAÄNRHHNHNAEHNENNNTS 

4490 FRINT "ar # R x 

x zul: 

4420 PRINT "un “ ” 3 

H wu 

4500 PRINT "mx x x * 


” HHANANAN 














45310 FRINT HAH 4 # # 
» KANNE 
4520 FRINT KERNHSKENSENANNNN 
= KHMMUMMATS 
4530 FRINT "sXnaH = x # 
» un 
4540 FRINT "ns ” * Ei 
x m"; 
4550 FRINT "x r x x 
Eu KHNMNSKM'S 
4550 PRINT "xxx = * *® 
» KUKNNHKEM"G 
4370 PRINT "aaac E RARNKRUAHRHNNNIM 
# ASHHHNNKUS 
4580 FRINT "ARHKH » EI % 
= an": 
4576 FRINT "mr H = » 
» zu"; 
#606 PRINT “xx n a » 
» Rannuamm 
4610 PRINT "anuaR = x . ® 
# HESNHKHHTG r 
A620 PRINT "aux RRAKRKRKANKNRNNAE 
» HENSMKENTOE 
3630 FRINF "nauH 
au" 
AsAaa PRINT "uns 
a”: 
4&50 PRINT "us H * 


KSNNMNNDERMR 

4650 FRENT "sex # 
HRRNENNANKNUKNG 
4570 FRINT "xx 
KYHHNHNNNKUR'S 
4580 RESTORE #590: FOR i=1 TO d:READ manx 
ti) ,many£i):zNEXTF 

4670 DATA 4,7,265,6,36,11,36,16,36,215,4,i 
7 

4700 Fasx=4ı fasy=l2 

4719 RETURN 


HRNKEEKEH 


KEHHRNHNSAHNSHIHRHNN 


THECE WVIHFRUERSUMMEN:  740- 770: 55084 
790- 790: 17192 

ZEILENNR.: SUMMEN 800- . A102 745197 
100- 116: 189914 8970- #850: 51771 
126- 130: 15453 840- 850: 72894 
190- 150: 17558 B650- 870: 33653 
150- 170: 19870 B850- 890: 50924 
180- 1970: 12619 700- 9710: 46165 
200” 210: 14442 920-  9730:. 18295 
220=, 230: 17570 740- 950: 18254 
2ao-" 250: 203597 940- 970: 75574 
Pab- 270: 557% 9790- 990: 35851 
280- 2970: 1540 1000- 1010: 9097 
300- 310: 782 1020- 1030: 53403 
F29- 330: 1847 1040- 10503 44564R 
340- 350: 4322 10&0- 1070: 96791 
360- 570: ı211 1030- 1090: 79997 
380- 390: 1097138 i1o0- 1110: 33655 
4050- 410: 65656 1120- 115302 98737 
420- 430: 35801 i140- 1190: 75314 
440- 450, 11475 1150- 1179: 95004 
45G- 470: 36170 1180- 1190: 71527 
480- 490: I5b6 1206- 1210: 15910 
zs00- E10: Z042Z i220- 1230: 6915 
S20- 530: 36140 1246- 1250: 6657 
S40- So: 34617 1240 12705 B8S1 
Aal 57m 22456 1290- 1290: 590941 
390- 570: 55675 1SO0- 1310: 38967 
od Bich 62617 1320- 1330: 19944 
ade 0: 12704 1740- 1350: 58720 
Saad- 550: 412197. 1340- 13702 14724 
660- 670: 17175 41380- 197904 797554 
sRo- Erd: 7374 1400- 1416: 872748 
700-= Fiar ROSFE 1426- 1430: 15871 
720- 730: 46750 1446- 1450: 11207 
zau- 70: 68207 1440- 1370: 14575 
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1480- 14901 58363 FORO- 2030: 53977 | 2540- 2570: 30255 3100- 3110: 52005 | za4au- 3650: 63952 4180- 4190: 53345 
1500- 151063 27142 2040- 2050: 19733 | 2580- 2590: 566432 3170- 3130: 38765 | 3840- 3670: 93214 4200- 4210: 19733 
1520- 1530: 57450 2060- 2070: 48755 | 2400- Z610: F141& S140- S150: 56069 | 3680- 5670: 53584 4220- 42302 21719 
1540- 1590r 59967 | 2080- 7090: 48712 | 7520- 7530: 36298 | F166- 3170: 55074 | 3700- 3710: 49733 4240- 42505: 126248 
1560- 15705 41519 2100- 2110: 45712 | 2440- 2450: 71495 3180- 3190: 8194 | 3720- 3730: 30015 4260- 4270: 25996 
15B0- 1590: 43889 | Fi20- 2170: 9Eaas | 76460- 2670: 58872 | 3200- Z7103 Pr11? | 3740- 3750: Saaaa A42B0- 42907 72968 
4ä00- 1510: 249874 | 7440- 2150: 104449 | 7480- 7490: 59772 | I770- I?30: Tıa44 | 37&0- 3770: SO“ 4300- 4310: 51472 
1520- 1830: 10438 | 21&0- 2170:1737348 | 2700- 2710: 7254 | Z240- Toblı 45542 | 3790- 3790: 355172 4220- 42303 S42I2 
1640- 1650: 19551 2120- 21790: 589992 | 2720- 2730: Sasd4E | 3760- 32702 40055 | 3R00- 3810: 49952 4340- 4350: 9B2GA 
1560- 1670: 24775 | 27200- 2210: 5301 | 2740- 2750: Bißld | F280- 3290: 12968 | 3870- SA30r 49996 4360- 43703 30918 
14B0- 1690: 361&0 | 27220- 2230: 119048 | 2740- 2770: 67235 | 3300- 3310: 20323 | 3840- 7850: 54848 4280- 4390: 20496 
17007 1710: 27904 | 2240- 2250125048 | 2780- 2790: 47025 | 2320- 3330: 25696 | ITB&0- 3870: &üBld AANO- 4410: 63696 
1720- 1730; 31505 } 2240- 2270: 73273 | 2800- 2810: 11724 | F340- 5750: 74427 | 3880- 7990: 37072 4420- 4450: 60982 Ian 
1740- 1750: 93502 | 2290- 2290: 47075 | 2820- 2830: 33469 | 3360- 35770: 53458 | 3700- 7910: A?432 4440- 4450: 47025 iu 
1769“ 17705115945 | 2300- 723104 153892 | 2840- 2850: 115818 | 3380- 33901 37650 | 3920- 3930: 73020 4460- 44705 11612 I“ 
1780- 31790: 46271 2320“ 7330: &4448 | 2840- 2870:104395 | 3400- 3410:115675 | 3940- 3950: 47025 44E0- 4490: 51600 1“ 
1800- 1810: 9932 | ?7I40- 7350: 88192 | 2880- 7890: 73412 | 3420- 39430: 64968 | 3940- 3970: 11972 4500- 4510: 111488 IR 
1920- 1850: 61928 | 2350- 2370: 115328 | 2900- 2910: 84754 | 3440- 3450: 375406 | 5780- 3990: 31448 4520+- 4530; 54552 1a 
19340- 1850: 40294 | 2380- 2390: 71568 | 2920- 2930: 9947 | 34640- 3470: 22550 | 4000- A010: 579756 4540- 4550: 50288 IE 
1860- 1870: 58152 | Z400- 2410: 45272 | 2940- 2950: 11742 | S409- 3490: 479658 | 4020- 4050: 849972 4560- 4570: 95972 '2 
1880- 1890: 49552 | 2420- 2430: 796089 | 2960- 2970: #143 | 3500- 35109: 32656 | #040- 4950: 27112 45B0- 4590: 541728 1% 
1909-1910: 40776 | 2440- 2450: 119568 | 2980- 2990; 74654 | 3520- I5%0: 51232 | 4040- 3070: 743% 4500- 46510: 111488 in 
1920- 17350: 87048 2460- 2470: 94B08 | S000- 3010: 38241 3540- 3550: 49772 | AQB0- 4070: 604489 A6Z0- 4630: 42352 ! z 
1940- 1950: 14376 | 2480- 2490; Sa632 | 3020- 30530: 47005 | 3560- 3570: 80376 | s100- 4110: 43296 4630- 4650: 80288 ie 
1940- 1970: 88912 | 2500- 2510: 73908 | 3040- 3050: 31435 | 3580- 3570: 49098 | 4120- 4130: 97312 46650- 4670: &7416 1E 
1980- 1990: 20512 | 2520- 2530: 533397 | 3060- 3070: 43044 | 5600- 5410: 87956 | 41409- 4150: 81249 4EH0- 46905 53308 im 
2000- 2010: T5A16 | 2540- 2550: 17755 | 3080- 3090; 26571 3620- 3630: 65032 | 4140- 4170: &6275 47090- A710: 19733 ı0 
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© Biete 
‚Hardware _ 


C16/116/+4 _Hardware/Zubehör 
16 K RAM Erweiterung 79.- 

“ Drucker Star Gemini 10598.- 
Monitor Phillips 8590548. 
Plus 4239.- 

Fioppy 1551379. 
Joystickadapter 18.- 
Abdeckhauben ab 7.98 
Datencassatten C15 10St 
16.99 

Comp.Serwice PF1384 7913 
Senden 





++ +++ H+H+t+H+rH HH 
++ t+4trHrHHr HH 


Sensationelll!!i Die Super 64K- 
Erweiterung für C18/116. Jetzt nur nö- 
och 85 DM! fincLSof+ Tips) einfacher 
Einbau ohne Löten! 

- Superindustriequalität ! 

- geringer Stromverbrauch 

- umschaltpar auf 16 K (2 Programme 
gleichzeitig im Speicher) 

Info: Hartmut Schäfer, Schutzbergstr. 
16, 6680 Saarbrücken 


Warum Experimente? 

Plus 4 Userport am C16. Nurd IC erfor- 
derlich. Wie? 

Gegen 20,- DM Vorkasse Manuskript 
anfordern 

{nur Sehein oder Verrechnungsscheck) 
HWE Schmidt 

Trakenerstr. 13 

3004 Isernhagen 


Verkaufe Original dk’tronies Light Pen 
inel. Software für nur 56... 

Jörn B. Gruhlke, Gartenstr. 6, 2347 SÜ- 
derbrarup, Tel.:04541/8396, bei 
Fam.Schmechel 


Verkaufe C-116 + Datasette für 209,- 
DM. Bitte melden bei: Arno von Germe- 
ter, Triftweg 5, 3549 Volkmarsen, 
05693/7612 


** 5167 116 RAM Erweiterung |! 
C16/116 68671 Byles fres für DM 97,80 
- Alle Ports frei - keine Einschränkungen 
- incl. Umbau** 

Computer ohne Zubehör mit 100,-DM 
(2,20 f. Post) an: 

Elektronik - Technik 

Tannenweg 9, D 2351 Trappenkamp 


“* C 16/116 RAM-Erweiterung!! ** 
C15116 808671 Bytes free für DM 
97,80- alte Ports frei - keine Einschrän- 
kungen - incl. Umbau ** Corriputer ohne 
Zubehör mit 109,-DM (2,28 DM für die 
Post) an: - 
Elektronik-Technik 
Tannenweg 9, D 2351 Trappenkamp 


Commodore *C-16/116*C-16/116** 
Speichererweiterung 64 KByte Bausatz 
mit allen benötigten Teiten * Schalterfür 
16KByte - 64Kbyte umzuschalten und 
ausführlicher Bauanleitung für nur 49,56 
DM (incl. Mwst. Porto u. Verpackung) 
per Nachnahme. Frank Schmitz, Kurzer 
Weg 1, 5206 Neunkirchen 2, Tel.: 
82247/8111 ab 18 Uhr 


Schneider CPC 664 m. Grünm. + Fiop- 
py für 558,-DM, sowie Commodore VG 
20 miit verschiedenen Modulen für 68,- 
DM, Tel. 06423/2995 


Berlin, Berlin 
W.A.W.-Elektronik, Tegelerstr.2, 1009 
Berlin 28, Tel.:030/4043331, auforisier- 
ter CGommodore-Vertragshändier bietet: 
Für C161 16 64K-Erweiterung m. Ein- 
bau 69,-0M, ©-64 neues Design incl. 
GEOS 538,-, 128D 1698,-DM, Commo- 
dore Amiga 3695,-DM und Monitore, 
Floppys, Drucker, Zubehör 


une C16 und C-116 — 

64KB Speichererweiterung mit Schal- 
ter 16/64K. Bausatz DM 49 
Umbauservice (Garantiel} DM 89 

UNEX 16 (4 ROM-Sockel + RS 232 
+ 6522 VIA Port) nur DM 195 

IEP-16 Eprom-Brenner nur DM 228 - 
4fach-Epromkarte 64 K8 DM 69 
** Info anfordern bei S&J HAAS”* 
Vohenstraußerstr.90,8480 Weiden 


Für Ci6/116/plus 4 kostenlos! 

infos - Tips - Angebote - Umbauten 
**"** yoam Computerfachmann ***** 
Erweiterungen + Reparaturen.... 
Noch Fragen? Freiumschlag ar: 
Elektronik-Technik-Peters 

Tannenweg 9, DE2351 Trappenkamp 


VC-28 mit5 Spielmodulen und 5 Kasset- 
ten tür VB 150,-DM zu verkaufen, Heiko 
Göcke, Mackenstr.29, 4432 Gronau 


Verkaufe: C64 + Floppy =808,-DM, 
Drucker Seik.180-VG = 250,-(+Papier), 
Speedos+ .= 85,-, 
Dataseite + Programme = 8B,-, 5 Bü- 
cher = 108,-, 100 Disks = 350,- alles = 
1508,- DM Tel.: 08232/5824 (Seppi ver- 
langen) 


Commodore:Alles für 016 C 128. 
EPROMS, Ptatinen, Zubehör, anfrage 
telefonisch oder gegen 2,-DM in Marken 


- (werden angerechnet) bei: 


**Fritz Zander 

**Hopfenstr. 6 

5696 Wuppertal 1 

**Tel. Tel. 629/428311 
**Auch Schneider und Atari** 


C-16 64K-Erweiterung incl. Einbau nor- 
mal 65,-DM . 

mit Umschaltung 16/64K 75,-DM 
Hanspeter Zölle, Roseggerstr.17, 7108 
Heilbronn, 87131/80694 


Turbofloppy Modul V 2,4 

Befehle wie Backup, Cat f. Directory, 
Header f. Formatierung, usw., Preis 
15®,-DM, Tel: 88157/8942 ab 19:08 Uhr 


Achtung G-18, 116, Plus 4-Beäsitzer- 
Biete Stromausfallsicherung für ihren 
Computer. Kein Programmverlust mehr 
bet Stromausfall. Nur DM 29,-!! Bausatz 
mit allen Einzelteilen nur DM 22,56! 
SEHR einfach anzuschließen. Kein Ein- 
griff ins Gerät notwendig. 

Harald Pliet, Erikastr, 2, 4534 Recke. 


Suche Drucker {für C1&): MPS 891, 
MPS 803, GP 350X, süche Datasette u. 
Floppy ab 15:80 Uhr Tel: 05807/20&, 
Th. Kietzke 


Suche Drucker Comodore, tech. o.K, 


MPS 801, 802, 883. Zahle b. DM 259 
Harald Hähne, In der Freiheit 44, 5658 
Solingen 


Farbbänder Seikosha 98761/4245 
GP59-100-588-558 nur DM 13.58 
GP700 schwi/vierf. DM 28.-144.- 

1 SPE091090 DM 22,- MS15 DM 9.90 


Restposten Drucker {m.Garantie} 
Farb-Dr. GP70B Centronies 599.- 
Klein-Dr. GP58 Centronics 199.- 
Disketten 2D/25 188t. 29.98 
..Sumrex 2D/25 10St. 39.98 





Commodore C16 - Original ® mit div. Zu- 
behör und Spiele zu verkaufen - Preis 
nach Vereinbarung. Tel.: 89141/5518 


Altes rund um Commodore, Atari und 
Schneider. Z.B. Kernat-o. Epramplati- 
nen, Eprambrennservice und Hardware. 
Tauschbörse: Gebrauchte Soft- und 
Hardware zu niedrigen Preisen. Anfra- 
gen unter Tel.:028428311 oder schrift- 
lich an Zander, Hopfenstr. 6, 5680 Wup- 
pertal 1 (Rückporto). 


Biete 


Software 


original Elite plus V1.9 *** 
fantastische neue Program- 
miersprache für strukturiertes 
Programmieren auf Ihrem plus 
410167 C116 (64KB) 





29,-- mit ausf. Handbuch, inch. 
, Porto & Verp. Info geg. Rp. 

bei TEDsoft / Bohlingerstr.2 

»#ea8R® 7709 Singen ***""** 








SKERERERERH 
KAHN 
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Bewerbung als Programmautor 
Name: __—— — — — — — —. Vorname: 
Straße: ______ 0 Wohnort: 


Titel des Programmes: _ _ .  . Gomputersystem: 





Erforderlicher Speicherplatz: Köytes 


Erforderliche Peripherie: 


Ich versichere hiermit, daß ich der Autor desoben genannten Programmes bin und alte Rechte besitze. Ich bin damiteinverstanden, daß Sie 
mein Programm in einer Zeitschriftabdrucken und/oder dieses verkaufen. Das einmalige Honorar beträgt 120 DM pro abgedruckter Seite. 
Sollte das Programm nicht veröffentlicht werden, bitte ich um Rücksendung meiner Unterlagen. Sollte mein Programm in der Zwischenzeit 
von anderer Seite erworben worden sein, werde ich Sie unverzüglich benachrichtigen. Ich bestätige durch meine Unterschrift, daß ich 
Kenntnis davon habe, daß der Tronic-Verlag gegen Personen, die Programme einschicken, deren Urheberrechte sie nicht besitzen, rechtli- 
che Schritte einleitet, 


Unterschrift des Programmautors (bei Minderjährigen auch die eines Erziehungsberechtigten}: 


Folgende Unterlagen fliegen diesem Schreiben bei: 
Kassette: _______ _ Diskette: _____..... Dokumentation: __..  — Listing: _____—_—_ —- Rückporto: 


Unterschrift des Programmautors (bei Minderjährigen auch die eines Erziehungsberechtigten): _ . 
{Bitte zweimal unterschreiben!) 
Einsenden an: Tronic-Verlag Abt. '. Programmentwicklung, Am Stad, 3440 Eschwege 


“ ‚Kleinanzeigen “ ‚Kleinanzeigen *“ ‚Kleinanzeigen 


Auftrag für Gelegenheitsanzeigen in „Compute mit. E 


Name und Adresse 


An „Compute mit ..* 
Tronis-Verlag 
Postfach 


3440 Eschwege Unterschrift 
Unter der i i igen“- u. 
veröffentlichen wir Geenenhens- Ich wünsche folgenden Text zu veröffentlichen: 
anzeigen für Verkaufsangebote, 
Kauf- und Tauschgesuche, Kon- 
taktaufnahme bzw. Erfahrungs- 
austausch usw. 

Unser Preis für „Kleinanzeigen“: 
Private Kleinanzeigen 

bis 5 Zeilen nur DM 5,- DM 
bis 10 Zeilen nur DM 10,- DM 


Jede gewerbliche Gelegenheits- 
anzeige 

bis 10 Zeilen nur 15,- DMI 
(dürfen nicht unter Chiffre er-- 
scheinen) 

Eine Veröffentlichung erfolgt nur 
gegen Vorkasse! 


Kleinanzeigen jetzt . 
noch preiswerter © Biete Hardware © biete Software C suche "O Kontakte © Versch. 











Zutreffendes ankreuzen 
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*** * Software für * * * * 

Atari SBOXL, 130XE ” Atari 260ST, 
520ST, 524ST+* Commodore VC-28, 
C64, 0128, C16, C116, plus4 * Commo- 
dore Amiga * MSX-Computer * Schnei- 
der, CPC-464,664,6128 * kostenlos Li- 
ste anfordern (Bitte Computer ange- 
ben)* Frank Schmitz, Kurzer Weg 
1,5286 Neunkirchen 2 

Tel.:02247/8111 ab 18 Uhr 


c-54! 
c-54! 
Clubsoftware (Anwender-, Spiel-, Lern-, 
Denk- und Musikprogramme gegen Ko- 
piergebür von nur 1 DM abzugeben. 
z.B. Vokabeltrainer, Astrologieprgr. mit 
Bildschirm- und Druckerausgabe, Synt- 
hesizer, Biorhytmus, Actionspiele und 
Hilfsroutinen. Kein Schund! Info (Rückp} 
TEXASOFT, HERTHASTR.26, 8 MÜN- 
CHEN 19 


NUR 1DM JE PROGRAMM! 


Supergelegenheit auch einzeln 
5 Originalspiele für nur 55 DM 
Oliver Windherst 

Auf der Dohnhorst 11 

2662 Worpswede 1 


Krk 
Spiel- und Anwenderpro- * 
gramme * 
für © 16/116 zu kleinen Pre» x 
sen. Info gegen Rügkporto bei x 
Matthias Poppen, Erlenweg * 
11, 2955 Bunde 
FSK ERER EEE RE 


KERERK 


* 


Verk. 19 Spielecass. für C-16 wegen Sy- 
stemwechsel Tel.: 88404/1252 . Mo-Fr 
17-19 Uhr, Neu: 350 DM, VB: 258 DM. 
Fan.4, Berks{123),Rob.to 
Resc.,‚Petch, Worldoup,3DTIME, Trek 
u.a. 


18 Top-Games für den C-16 auf einer 
Kassette zu nur 20 DM. Dieses Game- 
spack besitzt: Turmspringen, Mimi,Po- 
ker, Ropulette, Dame, Super Mind usw. 
Tel.:0504/3244 


** SCHNEIDER CPC 464 ** 
Verkaufe und tausche Spiele 
und Anwenderprogramme. Ko- 


stenioses Gratisinfo bei: An- 
sgar Hütten, Schwartenpoht 
11, 4455 Wietmarschen 2 





+ +C16116/+4 Software + + 
Bomb Jack.........Cass.24.98 
Frank Bruno's Boxing "24.0 
Yie are Kung Fu, Cass.29.— 
Rambo, Cass.29.-- 

Winter Olympiade, Cass.22.90 
Superhits (6Pgr.} Cass.27.99 
King Size #58Par.)Cass.24.98 
245tnd Bestellservice 
07307/6230 

Comp.Service PF13904 7913 
Senden 


++ t+tr+t+rtH+HH+rHr 
+++ trHrrtrtrrHtH 





+C16/118/ +4 
Anwenderprogramme + 
Tubo Tape, Cass. 15.99 
Graphic Designer, Cass. 15.90 
Paint Box, Cass.19.90 

Music Master, Cass.22.99 
Micro Datei, Cass.22,99 
Home Office, Cass.33.98 
Jetzt Neu: DISKETTENSOFT- 
WARE j 
Preise Stand 88/86 zzg! Ver- 
sand 

Comp.Serwice PF1384 7913 
Senden 


FHHrHHHtHrrHHrH 
FH +4 HH Hr HH HH 











Achtung C 
User! 
Originalprg. ab 5,-! Keine Ko- 
pien! Liste gegen Porto 
Riesen Specialmappe nur 6,- 
3@ Prge.: Spiel + Anwend. nur 
25,— 

Playbit-Software *** 
Trimbser Weg 26, 

5449 Mayen 14 


16/116/plus4 












Top Spiele für C-16 Spielpaket: 
Jump-Man, Pferderennen, Turmsprin- 
gen, BlackJack, Cowboy-Duell, Pas- 
Mac,auf einer Kassette zu verkaufen, 
Preis DM 18 + 2 DM für Porto und Ver- 
packung. Tausche auch gern Spiele 
aus! 

Jürgen Arns, Jugendheimstr. 1 

5550 Berrkastel-Kuels 


PC 128 u. VC 64 Originalprogramme: 
Turbo Texter 128 (48/88 Z.) DM 24,80 
Monarchie (Spiel) DM 15,- 

VC 64 Programme (D= Disk, T= Tape}: 
Das Riff (D) DM 19,89, Astray in Jungle 
{D/T) DM 18,-, Kaufman {D) DM 16,-, 
Schneewitichen (D/T) DM 18,-, Schatz- 
suche (D/T) DM 18,-, Rapunzel (D/T)} DM 
18,-, Liste -,86 in Briefmarken bei: Ol- 
denburg, Postfach 1132, 2199 Guxha- 
ven 12 


C64, C128, VC 24, C 16/116 

Spiele, Termin, Lager, Fibu, EK-VK, Lot- 
to, Adress, Fabello, Foto-, Fiim-, Video-, 
Musikarchiv, Digitalo, Denktraining, YSJ, 
Kartei, Biblo, KFZ, Handbücher, ab 9.96 
DM, 

Katalog gegen BO Pf-Marke 
Computerservice T. Hofstede 

An der Windmühle B, 5010 Bergheim 


SEELE EEE 
*** Sprite Animation Set *** 
Fantastisch animierte Multi- 
Color-Sprites erstellen, wie in 
Topgames. Oder machen Sie 
einen Trickfitm. 
Menüsteuerung, Scrolling, 
Spiegeln, Animationsroutine, 
Demosprites, u.a. Disk für GC 
64 nur 38 DM! 

Schein an: Holger Geldermann 
Schuhmannstr. 4, 4320 Hat- 
tingen 

DE ee 2202202 2 2 2 220203 


FREE 
FHEHERERHRERN 


Anspruchsvolle Lernsoftware für Schule 
u. Beruf für CPC Schneider. Liste bei’ 
Dr. Kolb, Bergstr.34, 6986 Heidelberg, 
Tel.: 66221/474711, Programme auch 
nach Wunsch bestellbar! 


Das beste Biorhythmusprogramm plus 
Partnerschaftsanalyse. Bei Druckerbetr. 
ca. 8 Din A4 Seiten pro Monat + Grafik 
sehr ausführliche Hinweise und Informa- 
tionen für jeden Tag. Ein TOP- 
Softwarepaket, daß bereits erfolgreich 
auf kleinen Messen und Märkten An- 
wendung fand. Progr. (78K) Disk. DM 
40,- Kass. DM 38,- Ralph Hilterscheid, 
Ludwig-Rosenberg-Fing 47, 2850 
HH-88, Tel. 840/7211974 





CPC*GPC"CPC*! Topgames?! 
"SPO*CPC'GPC 

* Wow! "& Tausche Software $* Wowl* 
© Schickt Eure Listen an: Rolf G 

P Eppirger Junior Fraunhoferweg 4 P 
© 7448 Nürtingen Tel: 0702218763 C 

* LOGISCHERWEISE: 3’Disc & Tape ! * 
CPC"CPG'EPC*?? Hey you?? 
"CPC’CPO"CPC 


CPC Software zu Toppreisent 
tel. best. bei M+K 9821/91115 
5. Fox Strip, Poker 29,980 DM 
Bomb Jack 27,98DM 
Kung Fu Master 38,96DM 
Gun-Fright 33,98DM / Shogun 
29,96 / Biggles 33,90 / 
Ghost'N'Goblins 29,98 ! Green 
Beret 29,96 / Tomahawk 29,96 
/ Equino X 29,98 /The Comet 
24,90 


Varkaufe Original-Software für den C 64 
auf Kassette z.B.: Beach Head 2/ Winter 
Games / Titanic / Fight Night für !DM 
15,-. Rambo / War Play für DM 18,-, The 
Last W8 / Five-a-Side für DFM 7,- und ei 


RKEHEREREREREN 
KEEERERTRTN 


"ne Menge Mastertronic-Spiele für 5,- 


DM. Ich tausche alle Spiele auch gegen 
: Herz von Afrika /Disk o. Kass., Frank 
Grosstück, VOr der Loos 6, 5427 Bad 
Ems, 62603/124321 


©-16,C-116 Superspielet****"* 

Info gegen Rückporto bei Hannes Kal- 
tenbach, Prieimayerstr. 16,7998 Frie- 
drichshafen 1 


Mc Storey in the Caves. Kassetle für 
C-16118/+4 DM 1& + 3 DM Rückpor- 
to. Das Action- und Strategiespiel. Fan- 
tastische Grafik und anspruchsvoller 
Sound, 21 Hires-Multicolor-Screens. 
Versuchen Sie Diamanten zu sammeln 
und zu überleben. Dieses Spiel wird Sie 
fesseln. Bei C.REinke, Otto-Dix-Str.3, 
18632 Berlin 21 


Top Tape 64: Verkaufe (tausche} gute 
Originalsof!!! 

SEARCHING : Suche Fioppy 1541 für 
Commodore 64 (möglichst bilig} 
M.Süssli, Flughafestr. 16, CH-B382 Klo- 
ten, Tel. 8118/36255 


***GPC 464*** Tausche Software aller 
Art in Basic & MC-Code 

Suche auch Tauschpartner für meinen 
Grünmonitor gegen Farbe (Wertaus- 
gleich in DM oder Sofl/!Hardware) 
C.Arnu, Hauptstr. 17, 6464 Altenhaslau 


FFHEKFEkFS Ecker 
©16/116 Zeichen-und Grafik- 
programme 16 K Version, und 
CAD-Systern (Basis-System) 
64 K Version, für technische 
Zeichnungen. Info gegen Por- 
to: Dipl.Ing.M.Rätzel, Ulven- 
bergstr.6,D-6180 Darmstadt 


KERN 
ZERRERE 


EFF REN 


Programme aus Eigenentwicklung für 
alle Schneider-CPC-Computer erhalten 
sie preisgünstig von Friedrich Neuper, 
Postfach 72, 8473 Pfreimd. Fordern sie 
einfach die kostenlose Preisliste an, Ei- 
ne kurze Postkarte genügt. 


VC-20 GAMES billig zu verkaufen 
GYV-32 KB; Spiele- Anwenderprogram- 
me/AB 2 DM > >Maschinencode<< 
>Assem. 

Tet: 60234/412498 od. 8234/4911237 


Thomas-Soft-Tsamacou 4 Athina 
Greece 

C-54,-128 

GEOSM! Auf Disk nur 38 DM, Megadisk 
v4 ru 28 DM, 128 Modus-Thelast V8 
138 DM, Wir haben 4006 Prg. für sie. 
Free INFO. | come every week in Ger- 
many.-Also Scenary Disk (west cost) 
Flightsimulator FF „Jetsimulator und 
mehr-Good Prices- 


"*#Hey*ihr*Freaks”""* C-64 

Hättet ihr nicht ‘Lust meine Spiele zu 
tauschen oder kaufen! Christian Doe- 
res, Friedrichstr. 5 b, 5550 Bernkastek 
Kues. "C-54* 





Compure mi 


EKREÜKFRFETENI RN 





Plus 4 C 16-64K, Fußball Bundesliga 
Verwaltung. Tabelle wird nach Punkte 
und Tordiff, sort.Mit Anzeige für 
Gesamte-Gew.-verl. unentsch. Spiele 
sowie Punkte + Torestand + Ergebnisse 
je Verein und Spieltag - Rätselpro- 
gramm mit über 2608 Begriffen. Such- 
vorgang dauert nur wenige Sek. Nur 
Disk Dietmar Winhold, FRlhönstr. 24, 
6498 Schlüchten 


Public Domain Software für C 54 
verkauft unser Club für DM 18,- pro Disk 
- Spiele, Comal, Utilities, 

Info: 8APF-Marke an M.Hub, Kennen- 
burger Str. 32, 

7306 Esslingen 


”** Jupitersoft GdbR presents‘ ** 


C .C64128 Bomb Jack 29.98 
Cana Space Invasion 29.98 
Denn... Critical Mass/Combat 

Lynx (Doppeldiskette) 49.98 
GC ‚SV 318/328 Bruce Li 5.90 
C Vt200 /Laser Lemunia 14.50 
C .2X81...Chess 16k 19.98 


Computertyp angeben! info bei s.o,, 
Höttinger Str. 34b, 8836 Ellinger 


*GPC’CPC*CPC* TOPGAMES! 
*CPC*CPC* 

Tausche CPC-Soft! Schickt Eure Listen 
an: Ralf jun. Eppinger, Fraunhoferweg 
4, 7448 Würtingen, West Germany, Tel. 
#7022/6763 

Tausche auf Disk oder Tape! Legt bitte 
Rückporto bei! CPC 464/ 664/ 6128/ Jo- 
yoe - Soft re 


%# Computer Hard- und Software * =* 


C-64,C-16, Atari, Schneider, MSX * 
Alter Ego D 69,00 

Herz von Afrika D 56,08 
Hanse D 48,00 

Golf Construction 

Set D 49,98 


Modern, Disketten und vieles 
mehr. Gesamtkatalog anfor- 
dern. H&S Werner Wohlfahrt- 
staetter Postfach 301033, 

4 Düsseldorf 


FREE RE 
NEBENVERDIENST ES 
für CPC-Anwender * 
FKIFEFRFERFERERERKERK 


An alle G16/116 User: Bei uns gibt es 
selbstgeschriebene Programme schon 
ab 1 DM! Infos gibt's gegen Freium- 
schlag bei! 

Torsten Gilsbach, Nerastenberger Str. 
1, 5788 Winterberg o. Stefan Kramer, 
Hauptstr, 38, 5788 Winterberg. Und 
wer's ganz eilig hat, ruft an: 82981/6848 
P.S. Clubmitglieder gesucht!!! 


Achtung! 3 brandneue Gti8/116 Pro- 
gramme (Programmpaket 1) 

1. Sherlock’s Problem 
..(Strategiespiel} 

2. HORSE (Aktionspiel) 

3. Chath the Mouse 

Preis: 8.98 DM + 1.18 Porto 
Lieferung nur gegen Vorkasse! 
MULISOFT, Hubert Mühlbacher, Plat- 
tenberg 3, 8221 Waging 


Achtung C 64 User! POKE-LISTE {322) 
nur 18,/ NEBENVERDIENST mit dem 
COMPUTER Tips & Tricks nur 28,- / Lot- 
to Tips/ Systeme usw INFO S8PF Adres- 
sen von 64 Usern je Stk 2,- od. INFO O- 
R/ Software Hochheimstr. 33, 5162 Nie- 
derzier 2 


Verk. C-16+ Datasette 0. Netzteil DM 
14B,- sowie Software z. Preis v. DM 
138,-. Markus Voss, Breslauer Str. 15, 
5910 Kreurtai 1, Tel: 82732/12907 


SEHE H 











Spiele u. Anwendungsprogramme für 
den C-16 auf Kassette zu verkaufen. IN- 
FOS bei: Dietmar Schwigon, An den 
Gehren 94 b, 4800 Bielefeld 1 





vC.20 * VC-2B * 20” VO-20 “ VO * VC20 * VCo26 * 
vVo28 


i . Suche Spitzensoftware für VC-28. Vor 


allem Datenverwaltungen Statistikpro- 
gramme, Adventures, (Text+ Grafik). 
Wenn’s geht in deutsch. Actionspiele. 
Die ersten 10 Einsendungen bekommen 
3 Flugsimulatoren - habe nur Datas. 
Michael Speidel, Hauptstr. 97, 

7521 Liepoldsheim 

-Zahle sehr gut!- 


Suche Musikprogramme jeder Art für 
gen Schneider GPC 464 /664. Jörn B. 
Gruhlke, Gartenstr. & 

2347 Süderbrarup, Tel.: 04641/8396 


g KT 





HEY BOY'S !N Wer sucht einen 
Tauschkollegen aus der Schweiz? Habe 
sehr viele Games (abgelippte. + Origi- 
nale}. Z.B. Commando... 


Abs.:Marc Trachsel,CH-2543 Lengnau! 


C-16 -Anfänger- 

Suche entprechende Kontakte zu C-16 
Profis. Wer hilft mir beim Einstieg. 

Th. Matuschka, Bonitaciusstr. 17a 
4308 Essen 13 


kleinanzeigen 


Bin Einsteiger und suche Kontakt! Er- 
fahrungsaustausch für plus 4. Wer kann 
mir helfen C-Programme auf dem C128 
zum Laufen zu bringen? 

Lothar Wenzel 

Finkenweg Ta 

6231 Sulzbach 


+++ 4 Hallo C16- Freunde“ ""**"** 
Wer möchte mit mir Programme taus- 
chen(Tape), Habe ca. 1291! . 
Schickt Eure Listen an Karin Henk, 
Breslauersir.4, 5188 Eschweiler. 

P.S. Verkaufe auch Netzstecker für 35,- 
DM und Antennenkabel 15,-DM(neu}. 


Nur einmal vorhanden. 
BEE 21 [: 5119 [selektieren 


"°*% Ci6&tiökplas 4-Club * * * * 


Wer mächte einsteigen? 
Info gratis bei: 

Torben Soffa 
Asperheide da 

4392 Bag Salzuften 5 


C-15-Einsteiger.Sind Einsteiger, suche 


Kortakt und Erfahrungsaustausch. 
Pater Thiemann und Frank Lohmann, 
Am Peterskamp 16, 4703 Bönen 


VG-20 Suche noch Mitglieder für VC-2& 


Spitzenclub zum Softwaretausch Wie 
Fiugzeug-, Hubschrauber, Space 
Shuttle Simulationen, Meinungsau- 
stausch, Tips und Tricks usw.. Adventu- 
res und viele Actionspiefe. Also ran an 
die Stifte und schreibt an Michael 
Speidel 

Hauptstr.97 

7521 Liedelsheim - es lohnt sich!! 








Das nächste Heft 





erscheint am 20. 10. 86 





C-16 * CPC * C-64 & MSX * ATARI * VC-20 * C-128 * SOFTWARE * JOYSTICKS %* C-16 


* . c 
F ICH GLAUBE, ICH WERDE BLOND! A 
A S 
A SOFTWARE EN MASSE BEI LINDENSCHMIDT!!! S 
B C-64/C-128 CPC = 
Ä CASS. DISK CASS. DISK(3”) T 
N  _YIE AR-KUNG FU (TOP-GRAFIK) DM 37,95 DM 47,95 DM 37,95 _ E 
D  STARSHIP ANDROMEDA DM 37,95 DM 47,95 _ _ N 
TAU CETI (ROBOTERREVOLTE) _ - DM 33,95 DM 47,95 % 

E HANSE (WIRTSCHAFTSSIM,) DM 37,95 DM 58,95 DM 44,755 DM 67,95 || 
R _BOMBJÄCK (SUPERARCADE) DM 37,95 DM 57,95 DM 37,95 DM57,95 0 
x INTERNATIONAL KARATE DM 23,75 DM 38,95 _ _ y 
c C-16 SUPERSPIELE AUF CASSETTE S 
- STREET OLYMPICS DM 9,95 GOLF . DM 9,95 T 
1 FAVOUAITE FOUR DM 26,95 AUTOBAHN DM 9,95 | 
6 FRANK BRUNO’S BOXING DM 29,95 SUPER HITS DM 27,95 C 
K 

* EINFACH BESTELLEN! LIEFERUNG ERFOLGT FREI HAUS! KEINE MINDESTBESTELLMENGEN. KEINE ZUSÄTZLICHEN PORTOKOSTEN. * 
C KEINE NACHNAHMEGEBÜHR! FORDERT UNSERE KOSTENLOSEN INFOS AN (COMPUTERTYP ANGEBEN}. E 
pP UMFANGREICHEN KATALOG GEGEN DM 2,-- SCHUTZGEBÜHR. R 
C VERSANDHANDEL A. LENDENSCHMIDT, SCHULSTA. 14, POSTFACH 1328, 4972 LÖHNE 2, TELEFON 057 32-72849 A 
* 9.00 BI5 11.30 UHR UND 12.30 bis 17.00 UHR W 
C-64 * MSX * C-128 & ATARI & VC-20 & DISKETTEN * JOYSTICKS * FARBBÄNDER :* SOFT 
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